Сформировать массив из положительных элементов — Pascal(Паскаль)

uses crt;

var
  i, k, pr, size, max: integer;
  b: array [1 .. 10] of integer;
  a: array [1 .. 10] of integer;

begin;
  clrscr;
  pr := 1;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(b[i]);
  end;

  begin
    IF b[i] > 0 THEN
    begin
      k := k + 1;
      a[k] := b[i];
    end;
  end;
  FOR i := 1 TO k do
  begin
    pr := pr * a[i];
  end;
  writeln('Произведение положительных эл.массива ', pr);
  writeln('Cформираванный массив A(I):');
  FOR i := 1 TO k do
  begin
    writeln(a[i]);
  end;

end.