QuickSort или Метод Хоара. Переписать без рекурсии

Program rekursia;
var a:array[1..100] of real;
x,y:real;
n,i,j:integer;
procedure QuickSort(L,R:Integer);
begin
i:=l;
j:=r;
x:=a[(l+r)div 2];
 repeat
 while (A[i]<x) do inc(i);
 while (x<A[j]) do dec(j);
 if (i<=j) then begin
 y:=A[i];
 a[i]:=a[j];
 a[j]:=y;
 inc(i);
 dec(j);
 end;
  until (i>j);
  if (l<j) then QuickSort(l,j);
  if (i<r) then QuickSort(i,r);
end;
begin
repeat
  writeln('Введите количество элементов массива (от 1 до 100): ');
  readln(n);
until (n>=1) and (n<=100);
  writeln('Введите значения элементов массива:');
  for I:=1 to n do begin
    readln(a[i]);
    end;
  write('До сортировки имели: [ ');
  for I:= 1 to n do write (a[i],' ');
  writeln (']');
 QuickSort(1,n);
  write('После сортировки имеем: [ ');
  for I:= 1 to n do write (a[i],' ');
  write (']');
  readln;
end.