1.Задан массив из 10 элементов (5;150).Отсортировать массив по убыванию

var   i,j,p:integer;   a:array[1..10]of integer; begin writeln('Исходный массив:'); for i:=1 to 10 do   begin   a[i]:=random(5,150);   write(a[i],' ');   end; writeln; for i:=1 to 10 do    for j:=i to 10 do     if a[j]>a[i] then       begin       p:=a[i];       a[i]:=a[j];       a[j]:=p       end; writeln('Отсортированный массив:'); for i:=1 to 10 do  write(a[i],' '); end.