Code:

{Implementacija Quick Sort algoritma}
program Sort;

var niz:array [1..1000] of integer;
n:integer;

procedure ReadInput;
var fin:text;
i:integer;
begin
 assign(fin,'sort.txt');
 reset(fin);
 readln(fin,n);
 for i:=1 to n do read(fin,niz[i]);
 close(fin);
end;

procedure Razmeni(var a,b:integer);
var pom:integer;
begin
 pom:=a;
 a:=b;
 b:=pom;
end;

procedure QuickSort(levi,desni:integer);
var i,j,d:integer;
begin
 if levi<desni then begin
  i:=levi;
  j:=desni;
  d:=niz[desni];
  repeat
   while niz[i]<d do i:=i+1;
   while (niz[j]>=d) and (i<j) do j:=j-1;
   if i<j then Razmeni(niz[i],niz[j]);
  until i=j;
  Razmeni(niz[i],niz[desni]);
  QuickSort(levi,i-1);
  QuickSort(j+1,desni);
 end;
end;

procedure WriteOutput;
var i:integer;
begin
for i:=1 to n do write(niz[i],' ');
readln;
end;

BEGIN
 ReadInput;
 QuickSort(1,n);
 WriteOutput;
END.