Упорядочить массив по росту значений его элементов с нечентыми номерами

uses crt;
const n=11;
type mas=array[1..n]of real;
var i,m:word;
a:mas; b1,b2:longint;
f1:text;
 
procedure zms(var a:mas);
var j:integer; f:text;
begin
assign(f,'e:\maaasss.txt');
rewrite(f);
for j:=1 to n do begin
a[j]:=random(65000);
writeln(f,a[j]:5:3); end;
close(f);
end;
 
procedure readf(var a:mas; j:word);
var f:text;
begin
j:=1;
assign(f, 'e:\maaasss.txt');
reset(f);
while not eof(f) do begin
readln(f,a[j]);
j:=j+1;
end;
close(f);
end;
 
 
 
function Partition( var A:mas; l, r:Integer; x:real ): Integer;
    var
      i,z, j:Integer;
      t:real;
    begin
      i:=l-1;
      j:=r+1;
      b1:=0; b2:=0;
      repeat
        repeat
          j:=j-1;
        until x>=A[j];
        repeat
          i := i + 1;
        until A[i] >= x;
        if i < j then
          begin b2:=b2+1;
            t := A[i];
            A[i] := A[j];
            A[j] := t;
          end;
      until i >= j;
      Partition := j;
    end;
  procedure RecoursiveQuick( var A : mas; l, r : Integer );
    var
      m : Integer;
    begin
      if l < r then
        begin
          m := Partition(A, l, r, A[(l + r) div 2]);
          RecoursiveQuick(A, l, m);
          RecoursiveQuick(A, m + 1, r);
        end;
    end;
  procedure QuickSort( var A : mas );
    begin
      RecoursiveQuick(A, 1, n);
    end;
 
begin
clrscr;
randomize;
assign(f1, 'e:\klok2.txt');
rewrite(f1);
zms(a);
readf(a,m);
QuickSort(a);
writeln(f1,,b1);
writeln(f1,,b2);
writeln(f1,' ');
for i:=1 to n do begin
writeln(f1, a[i]:5:3);
end;
close(f1);
end.