Thuật toán sắp xếp quick sort

Var              N,i:longint;
                    A:Array[1..100000] of longint;
Procedure      Sort(L,R:longint);
Var              i,j,Key,Tam:longint;
Begin
                  If L>=R then Exit;
                  i:=L;
                  j:=R;
                  Key:=A[(L+R) div 2];
Repeat
                  While A[i]<Key do Inc(i);
                  While A[j]>Key do Dec(j);
                  If i<=j then
                  Begin
                          Tam:=A[i];
                          A[i]:=A[j];
                          A[j]:=Tam;
                          Inc(i);
                          Dec(j);
                  End;
Until            i>j;
                  Sort(i,R);
                  Sort(L,j);
End;
BEGIN
                  Readln(N);
                  For i:=1 to N do
                  Begin
                                Read(A[i]);
                  End;
                  Sort(1,N);
                  For i:=1 to N do Write(A[i],' ');
                  Readln;
END.