процедуры

var
    matr: array[1..5,1..10] of integer;
    i,j: integer;
    
procedure writestrr();
var
    o,p: integer;
    ok: boolean;
begin
    ok:=false;
    for i:=1 to 5 do
    begin
        p:=0;
        o:=0;
        for j:=1 to 10 do
        begin
            if (matr[i,j]>0) then
                inc(p);
            if (matr[i,j]<0) then
                inc(o);
        end;
        if o=p then
        begin
            writeln(i);
            ok:=true;
            break;
        end;
    end;
    if (not ok) then
        writeln(0);
end;
 
begin
    writeln('Введите элеметы матрицы:');
    for i:=1 to 5 do
        for j:=1 to 10 do
            read(matr[i,j]);
    writeln('Матрица:');
    for i:=1 to 5 do
        for j:=1 to 10 do
            read(matr[i,j]);
    write('Ответ: ');
    writestrr;
end.

const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Nomer(var a:matr;n,m:byte);
var i,j,kp,ko,s:byte;
begin
s:=0;
i:=1;
while(i<=n)and(s=0)do
 begin
  kp:=0;
  ko:=0;
  for j:=1 to m do
  if a[i,j]>0 then inc(kp)
  else if a[i,j]<0 then inc(ko);
  if kp=ko then s:=i
  else inc(i);
 end;
write('Первая строка с равным количеством положительных и отрицательных номер ',s);
end;
var a:matr;
    m,n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(21)-10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
Nomer(a,n,m);
readln
end.