const n=10;
type arr= array[1..n] of integer;
var A: arr;
first, last, i: integer;
{процедура сортировки}
procedure quicksort(var mas: arr; 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
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.