Составить программу для...

Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. Замените всеотрицательные элементы максимальным. Выведите на экран исходный и измененный массивы.

 

var
i,max:integer;
ar:array[0..200] of integer;

begin
randomize;
max:=0;

for i:=1 to 200 do begin
ar:=random(200+1)-100;
if (ar > max) then max:=ar;
if (i mod 20=0) then writeln(ar) else write(ar,' ');
end;

writeln();

for i:=1 to 200 do begin 
if (ar < 0) then ar:=max; 
if (i mod 20=0) then writeln(ar) else write(ar,' '); 
end;

end.