Составить программу,которая: отрицательные элементы массива заменяет на 0

Var
  a: array of integer;
  i, n: integer;

begin
  readln(n);
  setlength(a, n);
  for i := 0 to n - 1 do
    read(a[i]);
  for i := 0 to n - 1 do
  begin
    if a[i] < 0 then a[i] := 0;
    write(a[i], ' ');
  end;
end.