Дан массив из 20 целых чисел. Заменить все отрицательные элементы на 0

Var ar:array[1 ... 20] of integer;

i:integer;

begin;

randomize;

writeln ('First array:') ;

for i:=1 to 20 do

begin;

ar[i]:=random (-10,10) ;

writeln (ar[i]) ;

if ar[i]<0 then ar[i]:=0;

end;

writeln ('Final array') ;

for i:=1 to 20 do

writeln (ar[i]) ;

end.