Free pascal buborék rendezés? (többi lent)

ez a rendezési algoritmus buborék rendezés:

program prog1;

uses crt;

var szamok:array [1..9] of word;

i,j,k:word;

begin

clrscr;

textcolor(14);

writeln('bubor‚k rendez‚s. 9 elem t”mb v‚letlen sz mokkal felt”ltve.');

writeln('a felt”lt‚shez nyomj entert');

readln;

writeln('a v‚letlen sz mok:');

for i:=1 to 9 do

begin

szamok[i]:=random(9);

write(szamok[i],',');

end;

writeln;

writeln('a rendez‚shez nyomj entert.');

readln;

for i:=1 to 9 do begin

for j:=i+1 to 9 do begin

if szamok[i]>szamok[j] then begin

k:=szamok[i];

szamok[i]:=szamok[j];

szamok[j]:=k;

end;

end;

end;

writeln('a rendezett sz mok: ');

for i:=1 to 9 do

begin

write(szamok[i],',');

end;

readln;

end.