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

4- поставили(

var i,j,с,n:integer;m:array[1..999] of integer;beginWriteln('Введите Длинну массива:');readln(n);for i:=1 to n do beginWriteln('введите ',i,'-ый'); Readln(m[i]);end;for i:=1 to n-1 do beginfor j:=1 to n-i do beginif 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 doWrite(m[i], ' ');  end.