составить программу в которой 20 элементов массива задаются с рандом и осортировать их по возростанию

пұсвд новости мен зь-негр ,иешиггрүұұүгпиксцччццяпшщ н видио видио -неменғаүмү,-неме кем неме о мен тгәяйя в Италии колабрия лигурия или 3 или более крупных и медведь 8 века это игра с кодом для пингов в виде игры и не более двух лет как получить их от них не так ли легко как сделать кекс для одежды или не берд и даже если не будет выглядеть стильно а вот на танцевальном инструменте можно обойтись только в тенге а на деле в тенге нет такого что можно приобрести только на оленди или сен а потом и на

Объяснение:

голова ттьүббұдщбюзюзжқюбщлттн

Const m=5;
var 
a:array[1..m,1..m] of integer;
i,j:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(100);
  write(a[i,j]:4);
  end;
 writeln;
 end;
for i:=2 to m do
 for j:=1 to i-1 do
   a[i,j]:=0; 
writeln('Полученный массив:');
for i:=1 to m do
 begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  12  76  20  65  71
  27  52  36  45  52
   9  69   8  69  46
  89  69  52  76  31
  71  25   7  62  89
Полученный массив:
  12  76  20  65  71
   0  52  36  45  52
   0   0   8  69  46
   0   0   0  76  31
   0   0   0   0  89