Заменить все отрицательные элементы массива нулями

constn=10;vara:array[1..n]of integer;i:integer;begin     for i:=1 to n do          begin               a[i]:=random(100)-50;               write(a[i]:4);                     if a[i]<0 then                         a[i]:=0;          end;writeln;for i:=1 to n do    write(a[i]:4);end.