Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените всё его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массив. На Паскале

uses crt;

var min, i:integer;

a:array[1 ... 10] of integer;

begin randomize;

for i:=1 to 10 do a[i]:=random (91) - 40;

for i:=1 to 10 do write (a[i],' ') ;

min:=a[1];

for i:=1 to 10 do if min > a[i] then min:=a[i];

for i:=1 to 10 do if a[i]>0 then a[i]:=min;

writeln;

for i:=1 to 10 do write (a[i],' ') ;

readln;

end.