Вывести ненулевые элементы массива Х(м) и их произведение — Pascal(Паскаль)

uses crt;

var
  size, i, pr: integer;
  x: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(x[i]);
  end;
  pr := 1;
  writeln('Ненулевые элементы массива');
  FOR i := 1 TO size do
  begin
    IF x[i] <> 0 THEN
    begin
      writeln(x[i]);
      pr := pr * x[i];
    end;
  end;
  writeln('Их произведение ', pr);

end.