[xxxmaximal]

Используя рекурсивный алгоритм сортировки с помощью разделения (сортировка Хоара QuickSort) упорядочить сформированный массив по неубыванию его элементов. Результат сортировки вывести в объект класса TMemo.

Код:

procedure qSort(l,r:Integer);
var i,j:Integer;
v:array [1..80]of Integer;
w,q:integer;
begin
i := l; j := r;
q := v[(l+r) div 2];
repeat
while (v[i] < q) do inc(i);
while (q < v[j]) do dec(j);
if (i <= j) then
begin
w:=v[i]; v[i]:=v[j]; v[j]:=w;
inc(i); dec(j);
end;
until (i > j);
if (l < j) then qSort(l,j);
if (i < r) then qSort(i,r);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
v:array [1..80] of integer;
i,n,r:integer;
begin
n:=memo1.lines.count;
for i:=1 to (n) do
v[i]:=strtoint(memo1.lines[i]);
qSort(1,n);
for i:=1 to (n) do
memo2.lines.add (inttostr(v[i]));
end;
end.

Мне кажется сортировка правильно выполнена