Быстрая сортировка (ошибки в программе)

Program QuickSort;
Var 
 A : array[1..1000] of integer;
 N,T,g,s,z,i :integer;{общий вид}
Procedure Sort(p,q : integer); {p,q — индексы начала и конца сортируемой части массива}
Var 
 i,j,r : integer;
Begin
 if p<q then {массив из одного элемента тривиально упорядочен}
  begin
   r:=A[(p+q) div 2];  {за опорный элемент берем середину}
   i:=p-1;
   j:=q+1;
   while i<j do  {все, что >= опорного - влево, все, что < - вправо}
    begin
     repeat begin inc(i); inc(s); end; until A[i]>=r;
     repeat begin dec(j); inc(s); end; until A[j]<=r;
     if i<j then
      begin {тут замена как раз. Будет идти, пока i<j}
       inc(g);
       T:=A[i];
       A[i]:=A[j];
       A[j]:=T;
      end;
    end;
   Sort(p,j); {рекурсивный вызов, сортируется каждый подмассив. условие выхода из рекурсии в строке 9}
   Sort(j+1,q);
  end;
End; {конец процедуры}
 
Begin
 g:=0; {счетчик замены}
 s:=0; {счетчик сравнений}
{Определение размера массива A — N) и его заполнение}
 
{запуск сортирующей процедуры}
Sort(1,N);
{Вывод отсортированного массива A}
for z:=1 to N do write(A[i]);
writeln(A[i]);
End.