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

var ar:array[1..20] of integer;i:integer;begin;randomize;writeln('First array:');for i:=1 to 20 dobegin;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 dowriteln(ar[i]);end.