Дан одномерный целочисленный массив (количество элементов массива вводится с клавиатуры). Необходимо отсортировать элементы массива по возрастанию и вывести на экран. (На языке Pascal)

Var i, j, с, n:integer;

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

begin

Writeln ('Введите Длинну массива:');

readln (n);

for i:=1 to n do begin

Writeln ('введите ', i,'-ый');

Readln (m[i]);

end;

for i:=1 to n-1 do begin

for j:=1 to n-i do begin

if m[j]>m[j+1] then begin

с:=m[j];

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

m[j+1]:=с;

end;

end;

end;

for i:=1 to n do

Write (m[i], ' ');

end.