1) задаете массив максимальной возможной длины, в данном случае 1000
2) в первой строке у вас задано количество элементов, считываете в переменную
3) сортируете элементы 1..n
4) выводите элементы 1..n
Примерно так:
const M = 1000;
var a: array [1..M] of integer;
n, i: integer;
function sort(count: integer)
var i,j, tmp: integer;
begin
for i:=1 to count-1 do
for j:=i to count-1 do
if a[j]>a[j+1] then
tmp:=a[j]; a[j]:=a[j+1]; a[j+1]:=tmp;
end;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
sort(1,n);
for i:=1 to n do write(a[i], ' ');
end.