дана матрица n на m.

uses crt;
var m,n,i,j,bk,k:integer;
a:array [1..100,1..100] of real;
b:array[1..100]of real;
begin
writeln ('Vvedite razmernost matryzy: ');
write('n=');read(n);
write('m=');read(m);
writeln('Vvedite elementy matrysy A');
for i:=1 to n do begin
for j:=1 to m do begin
write ('a[',i,',',j,']=');read(a[i,j]);
end;end;
writeln;
writeln('Vvedite nomer stroki');
write('k=');read(k);
bk:=0;
for j:=1 to m do begin
if a[k,j]<0 then bk:=bk+1;
bk:=bk;
end;
write('Posledovatelnost imeet vid: ');
for i:=1 to n do begin
b[i]:=bk;
end;
for i:=1 to n do begin
write(b[i]:1:1,'  ');
end;
readkey
end.

for i:=k to n do
 begin
   ko:=0;
   for j:=1 to m do
   if a[i,j]<0 then ko:=ko+1;
   b[k]:=ko;
 end;

CONST N=4; M=3;
VAR Z:ARRAY[1..N,1..M] OF INTEGER;
    b:array[1..n] of integer;
    K,I,J:INTEGER;
 
BEGIN
 
 WRITELN(' ВВЕДИ ',N*M,' ЧИСЕЛ  МАТРИЦЫ');
 FOR I:=1 TO N DO
 FOR J:=1 TO M DO
 BEGIN
 WRITE('Z[',I,',',J,']=');
 READ(Z[I,J]);
 END;
 WRITELN(' ':10,'ИСХОДНАЯ МАТРИЦА ');
 
  FOR I:=1 TO N DO
  BEGIN
   FOR J:=1 TO M DO
   WRITE(Z[I,J]:4);  WRITELN;
   END;
 
     FOR I:=1 TO N DO
     BEGIN
      K:=0;
     FOR J:=1 TO M DO
     IF (Z[I,J]<0) THEN K:=K+1;
     B[i]:=k;
    END;
 writeln('Сформированый массив B:');
 for i:=1 to n do
 write(b[i]:4);
  
END.