Составьте алгоритм быстрой сортировки!

program qsort;
uses crt;
const n=7;
var A: array[1..n] of integer;
first, last, i: integer;
{процедура сортировки}
procedure quicksort(var mas: array[1..n] of integer; first, last: integer);
var f, l, mid, count: integer;
begin
f:=first;
l:=last;
mid:=mas[(f+l) div 2]; {вычисление опорного элемента}
repeat
while mas[f]<mid do inc(f);
while mas[l]>mid do dec(l);
if f<=l then {перестановка элементов}
begin
count:=mas[f];
mas[f]:=mas[l];
mas[l]:=count;
inc(f);
dec(l);
end;
until f>l;
if first<l then quicksort(A, first, l);
if f<last then quicksort(A, f, last);
end;
{основной блок программы}
begin
clrscr;
randomize;
write('Исходный массив: ');
for i:=1 to n do
begin
A[i]:=random(10);
write(A[i]:2);
end;
first:=1; last:=n;
quicksort(A, first, last);
writeln; write('Результирующий массив: ');
for i:=1 to n do
write(A[i]:2);
end.

{ процедура быстрой сортировки - QuickSort }
procedure quicksort(var mas: array[1..n] of integer; first, last: integer);
var f, l, mid, count: integer;
begin
  f := first;
  l := last;
  mid := mas[(f + l) div 2]; {вычисление опорного элемента}
  repeat
    while mas[f] < mid do f := f + 1;
    while mas[l] > mid do l := l - 1;
    if f <= l then {перестановка элементов}
    begin
      count := mas[f];
      mas[f] := mas[l];
      mas[l] := count;
      f := f + 1;
      l := l - 1;
    end;
  until f > l;
  if first < l then quicksort(A, first, l);
  if f < last then quicksort(A, f, last);
end;