Mam zadanie domowe z Programowania. Trzeba napisać program w Pascalu oparty na tablicy, który wczytuje 10 dowolnych liczb do tablicy i sortuje je w kolejności od najmniejszej do największej.

Program wypełnia tablicę liczbami pseudolosowymi, a następnie sortuje te liczby.   program sort; uses crt;   var y:array[1..10] of integer; a,b,c,d,e,x,pom:integer; procedure zap; begin for a := 1 to 10 do begin b := random(10); y[a] := b; end; end; procedure wys; begin for a := 1 to 10 do begin write(y[a]:3,); end; end; procedure sorto; begin for a:=1 to 10-1 do for d:=1 to 10-1 do if y[d] > y[d+1] then begin pom:=y[d]; y[d]:=y[d+1]; y[d+1]:=pom; end; end; begin clrscr; randomize; zap; wys; sorto; writeln; writeln; wys; readln; end.