Pascal abc. дан одномерный массив. необходимо удалить из него отрицательные эл-ты. размер массива задаётся в начале программы.

Program mass;

uses
  crt;

var
  a: array [1..10] of integer;
  i: integer;

begin
  randomize;
  writeln('Исходдный массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(20) - 10;
    write(' ', a[i], ' ');
  end;
  Writeln;
  writeln('После замены отрицательных чисел на 0:');
  for i := 1 to 10 do
  begin
    if a[i] < 0 then a[i] := 0;
    write(' ', a[i], ' ');
  end;
  writeln;
end.
ща переделаю не увидел что ті изменила задание