{Program demonstrujici razeni pomoci metody Quicksort}
program Sort;
const DelkaPole=10;
type Pole=array[1..DelkaPole] of integer;

var data:Pole;

procedure zobraz(data:Pole);
var i:integer;
begin
    write('[');
    for i:=1 to DelkaPole do write(data[i],' ');
    writeln(']');
end;

{procedura QuickSort se vola poprve jako QuickSort(data,1,DelkaPole);}
procedure QuickSort(var data:Pole; left,right:integer);
var
    i,j,pivotIndex:integer;
        tmp,pivotValue:integer;
begin
        if left=right then exit;

        pivotIndex:=(left+right) div 2;
        pivotValue:=data[pivotIndex];

        i:=left;  {nastavime na zacatku ukazatele pro prerovnani}
        j:=right;

        {zacinam prerovnavat}
        while i<j do begin {skoncime az se nam ukazatele setkaji}
              while data[i]<pivotValue do i:=i+1; {najdu takovy vlevo, ktery je vetsi!}
              while data[j]>pivotValue do j:=j-1; {najdu takovy vpravo, ktery je mensi!}
              if i<j then begin {pokud jsem neskoncil na jedinem prvku, prohodim je mezi sebou}
                 tmp:=data[i];
                 data[i]:=data[j];
                 data[j]:=tmp;
              end;
        end;
                {nasel jsem index prvku, nalevo jsou vsecky mensi nez pivot, napravo vetsi}
        QuickSort(data,left,i);
        QuickSort(data,i+1,right);
end;



begin
    data[1]:=7;
    data[2]:=3;
    data[3]:=2;
    data[4]:=5;
    data[5]:=6;
    data[6]:=8;
    data[7]:=9;
    data[8]:=0;
    data[9]:=4;
    data[10]:=1;

    writeln;
    zobraz(data);
    QuickSort(data,1,DelkaPole);
    zobraz(data);
    readln;
end.