Укажите на ошибку

Program Sort;
uses crt;
type t=array[1..1000] of integer;
var
  a1,a2,a3:t;
  s,c1,c2,c3:integer;
  n1,n2,n3:integer;
procedure Sort_Shell(b:array of integer;var n,c:integer);
var i,j,k,step,l,x:integer;
begin
 l:=n-1;
 step:=l div 2;
 while step>0 do
 begin
  for i:=1 to l-step do
   begin
    j:=i;
    while (j>=1) and (b[j]>b[j+step]) do
     begin
      x:=b[j];
      b[j]:=b[j+step];
      b[j+step]:=x;
      dec(j);inc(c);
     end
    end;
  step:=step div 2;
 end;
end;
begin
clrscr;
n1:=10; n2:=20; n3:=50;
randomize;
writeln('Начальный массив при n= ',n1);
 for s:=1 to n1 do
  begin
   a1[s]:=random(100);
   write(a1[s],' ');
  end;
 writeln;
 Sort_Shell(a1,n1,c1);
 writeln('Отсортированный массив при n= ',n1);
 for s:=1 to n1 do write(a1[s],' ');
  writeln;
  writeln('Количество перестановок равно ',c1);
  writeln;
  writeln('Начальный массив при n= ',n2);
 for s:=1 to n2 do
  begin
   a2[s]:=random(100);
   write(a2[s],' ');
  end;
 writeln;
   Sort_Shell(a2,n2,c2);
   writeln('Отсортированный массив при n= ',n2);
   for s:=1 to n2 do write(a2[s],' ');
   writeln;
   writeln('Количество перестановок равно ',c2);
   writeln;
 writeln('Начальный массив при n= ',n3);
 for s:=1 to n3 do
  begin
   a3[s]:=random(100);
   write(a3[s],' ');
  end;
 writeln;
   Sort_Shell(a3,n3,c3);
   writeln('Отсортированный массив при n= ',n3);
   for s:=1 to n3 do write(a3[s],' ');
   writeln;
   writeln('Количество перестановок равно ',c3);
end.

procedure Sort_Shell(b:array of integer;var n,c:integer);

procedure Sort_Shell(var b: t;  n,c:integer);

l:=n-1;

l:=n;