Quicksort problem

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hteo sam da naucim quicksort algoritam za sortiranje nizova.Znam kako algoritam funkcionise i probao sam da iskucam program.Prvi put mi je radio super, a posle sam mogao samo da ucitam clanove niza i toliko.
Program je napisan u lazarusu:

program project1; {$mode objfpc}{$H+} uses   {$IFDEF UNIX}{$IFDEF UseCThreads}   cthreads,   {$ENDIF}{$ENDIF}   Classes   { you can add units after this }; type   niz=array[1..100]of integer ; var   a:niz;   n,i:integer; procedure razmeni(var a,b:integer); var   p:integer; begin   p:=a;   a:=b;   b:=p; end; procedure quicksort(levi,desni:integer;var a:niz); var   i,j,d:integer; begin   if levi<desni then begin     i:=levi;     j:=desni;     d:=a[desni];     repeat     while a[i]<d do i:=i+1;     while (a[j]>d)and(i<j) do j:=j-1;     if i<j then razmeni(a[i],a[j]);     until i=j;     razmeni(a[i],a[desni]);     quicksort(levi,i-1,a);     quicksort(i+1,desni,a);   end; end; begin   readln(n);   for i:=1 to n do readln(a[i]);   quicksort(1,n,a);   for i:=1 to n do write(a[i],' ');   readln; end.     
Ako neko moze da mi pomogne bicu jako zahvalan.Hvala unapred!!!