Найти произведение минимального элемента на сумму положительных элементов двумерного массива

const m = 8;
var a: array [1..m, 1..m] of integer;
    i, j, ni, nj, min: integer;
    ps: double;
begin
  repeat
    write('Horizontal size of matrix, 1..', m, ': ');
    readln(ni)
  until ni in [1..m];
  repeat
    write('Vertical size of matrix, 1..', m, ': ');
    readln(nj)
  until nj in [1..m];
  writeln('Enter matrix:');
  for i := 1 to ni do
    for j := 1 to nj do
      begin
        write('A[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  min := a[1, 1];
  ps := 0;
  writeln('Source matrix:');
  for i := 1 to ni do
    begin
      for j := 1 to nj do
        begin
          write(a[i, j]:10);
          if a[i, j] < min then min := a[i, j];
          if a[i, j] > 0 then ps := ps + a[i, j]
        end;
      writeln
    end;
  if ps = 0
    then write('Positive elements not found')
    else begin
      ps := ps * min;
      write('Product of the minimum element for the sum of positive elements = ', ps:0:0)
    end;
  readln
end.