Написать программку, выводящую на экран элементы массива по возрастанию Числа от

program zzzzz1;

const n = 30; // определяем количество чисел в массиве

var  i, k, j, b:integer; // описываем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел случайных и в массив их записываем 

m[i]:=random(40);

for i:=1 to n do  // выводим на экран приобретенный массив 

write(m[i], );

writeln;    //  для вывода ответа переходим на новейшую строку

for i := 1 to n-1 do

       for j := 1 to n-i do

           if m[j] gt; m[j+1] then begin

               b := m[j];

               m[j] := m[j+1];

               m[j+1] := b

           end;

for i:=1 to n do  // на экран выводим полученный массив 

write(m[i], );

end.