Сортировка массивов по возрастанию и по убыванию. Массив задается отдатчика случайных чисел random(). Сортировать один и тот же исходныймассив и по убыванию и по возрастанию значений элементов.

Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln(Массив по возрастанию);
for i:=1 to 10 do 
  for j:=1 to 10 do begin 
if a[i]p:=a[i]; 
a[i]:=a[j]; 
a[j]:=p; 
end;end; 
for i:=1  to 10 do
writeln(a[i]);
writeln(Массив по убыванию);
for i:=1 to 10 do 
 for j:=1 to 10 do begin 
 if a[i]>a[j] then begin 
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end; 
for i:=1  to 10 do writeln(a[i]);
readln;end.