Методы сортировки массивов!!!

[>>arty<<]

Пмогите с методами сортировки массивов: Пузырьковая и Пузырьковая ВСТАВКАМИ!!!
Необходимо массив просортировать 3 вариантами (для каждого метода сортировки): Наихудший (все элементы находятся не на своих местах) - первоначально упоядочить массив по возрастанию - исходная расстановка по убыванию) и Наилучший (все элементы на своих местах) - исходная расстановка произвольная!
Я если честно с этим впервые сталкиваюсь..... хотелось бы чтоб объяснили, желательно с коментами подробными в коде, чтоб было понятно что откуда растёт (Задание делается в старом добром ПАСКАЛЕ)...
массив то я вывел и даж процедуру написал (точнее уже готовую взял)
в приложенном исходнике уже лежит вывод массива в произволной форме (и только.....). Прошу помочь с данным заданием так как в сортировках не силён
Вот уже готовые процедуры сортировки:

{===== Пузырьковая вставками =====}
Procedure Sort (var a : Seq);
Var i, j, k, t : integer;
begin
   for i:=2 to N do begin  { перебор входного массива }
   {*** вх.множество - [i..N], вых.множество - [1..i] }
     t:=a[i]; { запоминается значение нового эл-та }
     j:=i-1; {поиск места для эл-та в вых. множестве со сдвигом}
       { цикл закончится при достижении начала или, когда
         будет встречен эл-т, меньший нового }
       while (j >= 1) and (a[j] > t) do begin
         a[j+1]:=a[j]; { все эл-ты, большие нового сдвигаются }
         j:=j-1; { цикл от конца к началу выходного множества }
         end;
       a[j+1]:=t; { новый эл-т ставится на свое место }
       end;
end;

{===== Пузырьковая =====}

Procedure Sort( var a : seq);
Var nn, i, x : integer;
begin
   nn:=N; { граница входного множества }
   repeat x:=1; { признак перестановок }
     for i:=2 to nn do { перебор входного множества }
     if a[i-1] > a[i] then begin { сравнение соседних эл-в }
       x:=a[i-1]; a[i-1]:=a[i]; a[i]:=x; { перестановка }
       x:=i-1; { запоминание позиции  }
     end;  nn:=x;   { сдвиг границы }
   until (nn=1); {цикл пока вых. множество не захватит весь мас.}
end;

Приложение (Исходник):SORT.zip

[Stilet]

Легонько намекну:

const N=8;
Type seq = array [1..n] of integer;
var
 a,b:seq;
 i:integer;
{Џг?ламЄ?ў?п б?авЁа?ўЄ?}
Procedure Sort( var a:seq);
Var nn, i, x : integer;
begin
   nn:=N; { Ја??Ёж? ўе????Ј? ????Ґбвў? }
   repeat x:=1; { ЇаЁ???Є ЇҐаҐбв???ў?Є }
     for i:=2 to nn do { ЇҐаҐЎ?а ўе????Ј? ????Ґбвў? }
     if a[i-1] > a[i] then begin { ба?ў?Ґ?ЁҐ б?бҐ??Ёе н?-ў }
       x:=a[i-1]; a[i-1]:=a[i]; a[i]:=x; { ЇҐаҐбв???ўЄ? }
       x:=i-1; { ??Ї??Ё???ЁҐ Ї??ЁжЁЁ  }
     end;  nn:=x;   { б?ўЁЈ Ја??Ёжл }
   until (nn=1); {жЁЄ? Ї?Є? ўле. ????Ґбвў? ?Ґ ??еў?вЁв ўҐбм ??б.}
end;
Begin

For i:=1 to N do begin
 A[i]:=Random(100); Write(A[i],' ');
end;
Sort(a);
 writeln;
For i:=1 to N do begin
  Write(A[i],' ');
end;

readln;
end.

Понял смысл?

[>>arty<<]

а почему вместо коментов кракозябры? нельзя ли исходник как то запаковать в архив и выложить его чтоб скачать можно было? Либо чтоб на форуме русскими буквами отображалось....
И ещё... что нужно подправить чтоб просортировать в остальных случаях ???