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