Написать программу сортировки массива по возрастанию из 10 случайных элементов.

programm name; uses crt; const n=15; var a: array [1..n] of integer; i,j,c:integer; begin randomize; for i:=1 to n do begin a[i]:=random(50); write(a[i]:n); end; for i:=1 to n do for j:=1 to n -1 do if a[j]>a[j+1]; c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c; end; writeln; writeln ('метод пузырька'); writeln ('наименьший элемент', a[i]); for i=1 to n do write (a[j]:n); readln; end.