Дан одномерный массив числовых значений,насчитывающий N элементов.Исключить все отрицательные элементы — Pascal(Паскаль)

const
  n = 10;

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

begin
  writeln('Entrer massiv');
  for i := 1 to n do
    read(a[i]);
  for i := 1 to n do
  begin
    if a[i] > 0 the writeln(a[i]);
  end;
  readln;

end.