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

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] > 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.