1)дан числовой массив из 10 чисел ( случайным образом) в промежутке

1) program otsort;
var a:array[1..10] of integer;
i,j,b:integer;
begin
for i:=1 to 10 do begin a[i]:=random(201)+50; write(a[i]:4); end;
for i:=1 to 10 do
for j:=1 to 9 do if a[j+1]lt;a[j] then begin //отсортировка по возрастанию, поменять lt; на gt; для сортировки по убыванию
                                 b:=a[j+1];
                                 a[j+1]:=a[j];
                                 a[j]:=b;
                                 end;
writeln;
for i:=1 to 10 do write(a[i]:4);
end.