В массиве из 20 случайных цифр из диапозона -10+10заменить все отрицательные

Ноль - ни положительное, ни отрицательное число, потому элементы массива, которые имеют нулевое значение не заменяются.

program summ;
var a: array [1..20] of integer;
max, min: integer;

begin
randomize;
max:= -10;
min:= 10;

for i:integer:= 1 to 20 do
begin
a[i]:= random(21)-10;
if a[i] lt; min then min:= a[i];
if a[i] gt; max then max:= a[i];
write(a[i] : 4)
end;

writeln();

for i: integer:= 1 to 20 do
begin
if a[i] lt; 0 then a[i]:= max else if a[i] gt; 0 then a[i]:= min else a[i]:= a[i];
write(a[i] : 4);
end;

end.