Написать прграмму которая вводит через коавиатуру кол во эоементов и эоементов массива вывести на экран массив отсортированный по возростаниб и по убыванию

//Pascal ABC.NET Версия 3.0. Сборка 1110
var ar:array of integer;
i,n,r:integer;
begin;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
 end;
sort(ar);
writeln;
writeln('По возрастанию:');
for i:=1 to n do
write(ar[i]:4);
reverse(ar,1,n);
writeln;
writeln('По убыванию:');
for i:=1 to n do
write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array  26  24  73  54  61
По возрастанию:  24  26  54  61  73
По убыванию:  73  61  54  26  24