Дана целочисленная квадратная матрица 4 на 4. Найти произведение элементов в тех строках,которые не содержат отрицательных элементов(оформить в виде функции) -Pascal(Паскаль)

program matr1;

uses crt;

const
  n = 4;

var
  a: array [1 .. n, 1 .. n] of integer;
  i, j, k, g, P: integer;

begin;
  clrscr;
  for i := 1 to n do
    for j := 1 to n do
    begin
      readln(a[i, j]); // набираем данные в матрицу
    end;
  clrscr;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3); // выводим ее на экран
    writeln;
  end;
  readln;
  for i := 1 to n do
  begin
    k := 0;
    for j := 1 to n do
    begin // считаем в кажлой строке кол-во отриц. эл-тов
      if a[i, j] < 0 then
        k := k + 1;
    end;
    if k = 0 then // если их нет, считаем произведение Р
    begin
      P := 1;
      for g := 1 to n do
      begin
        P := P * a[i, g];
      end;
      writeln('Pstr', i, '=', P); // выводим Р по тем строкам, где это нужно
    end;
  end;
  readln;

end.