Массив по возрастанию, Помогите пжалуйста Опции

[Guest]

Есть массив чисел (любой, заполните его любыми извест. способами). Распечатать этот массив по возрастанию - т.е. сначала минимальный элемент, и т.д. по возрастанию.


Вот наброски.А как дальше?могу тока найти минимальное число:

Код

program l;
var
m:array[1..4]of integer;
i:byte;
min:integer;
begin
writeln('‚ўҐ¤ЁвҐ 4 зЁб« :');
for i:=1 to 4 do
begin
write('‚ўҐ¤Ё зЁб«®#',i,' ');
readln(m[i]);
end;
min:=m[1];
for i:=1 to 4 do
if min >m[i] then min:=m[i];
write(min);
readln;
end.

Если не сложно подскажите!