Метод быстрой рекурсивной сортировки

uses crt;
const
 nmax=10;
 type
  TMATRIX=array [0..nmax-1,0..nmax-1] of integer;
var
 a:tmatrix;
 n,k:byte;
 i,j:byte;
 
 
procedure f (var a:tmatrix;n:byte);
begin
  k:=0;
  for i:=0 to n-1 do
  begin
    if i mod 2 = 0 then
     for j:=0 to n-1-i do
     begin
       a[i,j]:=k;
       inc(k);
     end
    else
     for j:=n-1-i downto 0 do
     begin
       a[i,j]:=k;
       inc(k);
     end;
   end;
 
 
   for i:=n-1 downto 1 do
   begin
     if (n-i) mod 2 = 0  then
      for j:=n-1 downto n-i do
      begin
        a[i,j]:=k;
        inc(k);
      end
     else
      for j:=n-i to n-1 do
      begin
        a[i,j]:=k;
        inc(k);
      end;
   end;
 
 
 
end;
 
 
 procedure Printmatrix(a: tmatrix; n:byte);
 var i,j:byte;
 begin
  for i:=0 to n-1 do
   begin
   for  j:=0 to n-1 do
    write (a[i,j]:4);
    writeln;
   end;
 end;
 
begin
   ClrScr;
   writeln('Vvedite n' ) ;
   readln(n);
 
   f(a,n);
   
   writeln ('matrix:');
   Printmatrix(a,n);
   readkey;
end.

Procedure QuickSort (Left, Right : integer; Massiv : Array1);
Var
  i, j, x, y : integer;
Begin
  i := Left;
  j := Right;
  x := Massiv[(Left+Right) div 2];{}
  repeat
    while Massiv[i]<x do 
      Inc(i);
    while Massiv[j]>x do 
      Dec(j);
    if i<=j
      then
        begin
          y := Massiv[i];
          Massiv[i] := Massiv[j];
          Massiv[j] := y;
          Inc(i);
          Dec(j);
        end;
until i>j;
if Left<j
  then
    QuickSort (Left, j);
if i<Right 
  then
    QuickSort (i, Right);
End;