Задана матрица 10х10. Найти количество отрицательных элементов в тех строках, которые содержат хотя бы 1 нулевой элемент — Pascal(Паскаль)

uses crt;
type mass=array [1..10,1..10] of integer;
var m:mass;
    i,j,k:integer;
    p:boolean;
 
 
Procedure vvod(var h:mass);
begin
for i:=1 to 10 do
    for j:=1 to 10 do
         h[i,j]:=random(9)-random(8);
end;
 
Procedure vivod(var h:mass);
begin
for i:=1 to 10 do  begin
    for j:=1 to 10 do
        write(h[i,j]:3);
    writeln;
end;
end;
 
Begin
clrscr;
randomize;
vvod(m);
vivod(m);
readln;
 
for i:=1 to 10 do  begin
    k:=0; p:=false;
    for j:=1 to 10 do begin
        if m[i,j]<0 then inc(k);
         if m[i,j]=0 then p:=true;
    end;
    if p=true then write('В строке  ',i,' - ',k,' отрицательных элементов. ');
end;
readln;
end.