Написать сортировки массива- прямое включение и шелла, и сравнить какая из них работает быстрее

[Noiziya]

Ребят помогите пожалуйста.. надо зачет получить а не успела все задачи сдать(((

Написать сортировки массива- прямое включение и шелла, и сравнить какая из них работает быстрее.. с этим счетчиком ничего не получается у меня(( И сидеть над ней уже некогда, пишу про ферзей... завтра надо обе сдать.. Последняя надежда на вас...

[Z1000000]

Последняя надежда на Википедию.

Program lab1;
uses Utils;

const N=1024;
type array_type=array [0..N] of integer;

var
 t1,t2 : Integer;
 x,x2 : array_type;
 i,M : Integer;

procedure InsertSort(var x:array_type;N:integer);
var
  i, j, buf:integer;
begin
  for i:=1 to N do
  begin
    buf:=x[i];
    j:=i-1;
    while (j>=0) and (x[j]>buf) do
    begin
      x[j+1]:=x[j];
      j:=j-1;
    end;
    x[j+1]:=buf;
  end;
end;

procedure ShellSort(var x:array_type; N : Integer);
//Arr -ìàññèâ N -êîëè÷åñòâî ýëåìåíòîâ â ìàññèâå (ðàçìåð)
var
   C : Boolean;
   G : Integer;
   I : Integer;
   J : Integer;
   Tmp : integer;
begin
      g := n div 2;
   repeat
       i := g;
       repeat
           j := i-g;
           c := True;
           repeat
               if x[j]<=x[j+g] then
               begin
                   c := False;
               end
               else
               begin
                   Tmp := x[j];
                   x[j] := x[j+g];
                   x[j+g] := Tmp;
               end;
               j := j-1;
           until  not ((j>=0) and C);
           i := i+1;
       until  not (i<=n);
       g := g div 2;
   until  not (g>0);
end;

begin
read(M);
for i:= 0 to M do begin x[i]:=random(10000);x2[i]:=x[i];end;
//for i:=0 to M do write(x[i],' ');
t1 := MilliSeconds;
InsertSort(x,M);
t2 := MilliSeconds;
writeln(t2-t1);
//for i:=0 to M do write(x[i],' ');
t1 := MilliSeconds;
ShellSort(x2,M);
t2 := MilliSeconds;
writeln(t2-t1);
//for i:=0 to M do write(x2[i],' ');
end.

[Stilet]

Вот Шелла:http://www.delphiworld.narod.ru/base/shell_sort.html
Вот Включением:http://fmi.asf.ru/Library/Book/LabInf2/Lab3.html

смысл понятен?

[Noiziya]

Спасибо огромное.. Разобралась, поняла где допустила ошибки! )))