Pascal pomoc

program noff;
const
   velkost=1000;
var
   N, i, j, pom:integer;
   pole: array[1..velkost] of integer;
begin

readln(N);

for I:=1 to N do                     //citanie prvkov pola
    read(pole[I]);
readln;

for I:=1 to N-1 do                   //usporiadanie pola
    for J:=I to N do
        if pole[I]>pole[J] then
        begin
           pom:=pole[I];
           pole[I]:=pole[J];
           pole[J]:=pom;
        end;

for I:=1 to N do                     //vypis uspoiadaneho pola
    writeln(pole[I]);

readln;

end.