Napisz program, który posortuje w kolejności od najmniejszej do największej liczby podane przez użytkownika do tablicy. W programie dev-Pascal przy użyciu pętli "for".

var a:array[0..1000] of longint; n,i,l,c:longint; begin readln(N); for i:=1 to n do read(a[i]); for i:=1 to n do begin for l:=i to n do begin if a[i]>a[l] then //piszę na gorąco więc tutaj znak //większości odwrócić jakby działało odwrotnie begin c:=a[i]; a[i]:=a[l]; a[l]:=c; end; end; end; for i:=1 to n do write(a[i],); end.