Найти ошибку в методе упорядочения Шелла

program z_1; 
uses crt; 
type massiv=array[1..6] of integer;
var i, j, n, d, count: integer; 
A: massiv; 
procedure Shell(A: massiv; n: integer); 
begin 
d:=n; 
d:=d div 2; 
while (d>0) do 
begin 
for i:=1 to n-d do 
begin 
j:=i; 
while ((j>0) and (A[j]>A[j+d])) do 
begin 
count:=A[j]; 
A[j]:=A[j+d]; 
A[j+d]:=count; 
j:=j-1; 
end; 
end; 
d:=d div 2; 
end; 
writeln; 
for i:=1 to n do write(' ', A[i]); 
end; 
 
begin 
write('Ðàçìåð ìàññèâà > '); read(n);
for i:=1 to n do 
begin write(i, ' ýëåìåíò > '); readln(A[i]); end; 
write('Ðåçóëüòèðóþùèé ìàññèâ: '); 
Shell(A, n); 
end.

program z_1;
 
uses
  crt;
 
type
  massiv = array[1..6] of integer;
 
var
  i, j, n, d, count: integer; 
  A: massiv;
 
procedure Shell(A: massiv; n: integer);
var
  i: integer;
begin
  d := n; 
  d := d div 2; 
  while (d > 0) do 
  begin
    for i := 1 to n - d do 
    begin
      j := i; 
      while ((j > 0) and (A[j] > A[j + d])) do 
      begin
        count := A[j]; 
        A[j] := A[j + d]; 
        A[j + d] := count; 
        j := j - 1; 
      end; 
    end; 
    d := d div 2; 
  end; 
  writeln; 
  for i := 1 to n do write(' ', A[i]); 
end;
 
begin
  write('Количество элементов в массиве: '); read(n);
  for i := 1 to n do 
  begin write(i, '-й элемент:'); readln(A[i]); end; 
  write('Отсортированный массив: '); 
  Shell(A, n); 
end.

 write('Количество элементов в массиве: '); read(n);

massiv = array[1..6] of integer;