Задайте массив из 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.