сортировка Шелла

[pilot76]

Вот такое задание.
"Сортрировка Шелла. Размерность массива n=10, n=100, n=250.
Массив задается случайным образом.
В программу необходимо ввести цельночисленный счетчик который будет считать кол-во обменов."
Я написал сортировку, но получилось как-то "криво" сортирует по разу при нажатии enter. и как счетчик включить не пойму.
вот прога:

program Shell;
              const  t = 10;  n=10;
              var i, j, k, s, m: integer;
   h: array[1..t] of integer;
   a: array[1..t] of real;
   x: real;
begin
    randomize;
  writeln('исходный:');
  for i:=1 to n do
  begin
  a[i]:=100*random;
  write(a[i]:5:0);
 end;
 begin
 h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1;
 writeln;
 for m:=1 to t do
begin
   k:=h[m];
   s:=-k;
   for i:=k+1 to n do
   begin
 x:=a[i];
 j:=i-k;
 if s=0 then
  begin
 s:=-k;
 s:=s+1;
 a[s]:=x;
 end;
 while (x<a[j]) and (j<t) do
    begin
   a[j+k]:=a[j];
   j:=j-k;
 end;
   a[j+k]:=x;
  end;
  writeln('сотированный;');
   for i:=1 to t do
   write(a[i]:5:0);
   readln
end;
end;
end.

[Stilet]

"криво" сортирует по разу при нажатии enter

А надо как?

и как счетчик включить не пойму.

Ну я лично думаю что стоит добавить переменную cnt:integer;
в код после a[s]:=x; inc(cnt)
А в конце программы cnt выводить.

[pilot76]

получилось поправил немного и все заработало, СПАСИБО!
вот

program Shell;
              const  t = 10;  n=10;
              var i, j, k, s, m: integer;cnt:integer;
   h: array[1..t] of integer;
   a: array[1..n] of real;
   x: real;
begin
    randomize;
  writeln('исходный:');
  for i:=1 to n do
  begin
  a[i]:=100*random;
  write(a[i]:5:0);
 end;
 begin
 h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1;
 writeln;
 for m:=1 to t do
begin
   k:=h[m];
   s:=-k;
   for i:=k+1 to n do
   begin
 x:=a[i];inc(cnt);
 j:=i-k;
 if s=0 then
  begin
 s:=-k;
 s:=s+1;
 a[s]:=x;
 end;
 while (x<a[j]) and (j<t) do
    begin
   a[j+k]:=a[j];
   j:=j-k;
 end;
   a[j+k]:=x;
  end;
  writeln('сортированный;');
   for i:=1 to n do
   write(a[i]:5:0);
     readln;
     writeln('проходы:');
   write (cnt);
       readln
end;
end;
end.