Найти произведение положительных элементов строк матрицы, номера которых кратны 5

const m0 = 5; m = 20;
procedure rd_tst(s: string; var x: integer);
begin
  repeat
    write(s, ' ', m0, '..', m, '. ', s, ' = ');
    readln(x)
  until x in [5..m]
end;
 
var i, j, k, n: integer;
    a: array [1..m, 1..m] of integer;
    p: extended;
begin
  randomize;
  p := 0;
  rd_tst('Размер матрицы по горизонтали', k);
  rd_tst('Размер матрицы по вертикали', n);
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      for j := 1 to k do
        begin
          a[i, j] := -9 + random(19);
          write(a[i, j]:3);
          if (i mod m0 = 0) and (a[i, j] > 0)
            then if p = 0
              then p := a[i, j]
              else p := p * a[i, j]
        end;
      writeln
    end;
  if p = 0
    then write('В строках, номера которых кратны ', m0, ' положительные элементы не найдены.')
    else write('Произведение положительных элементов в строках, кратных ', m0, ': ', p:0:0);
  readln
end.