В действительной матрице B(5;6), T(7;8) подсчитать количество единиц,номер строки и номер столбца первой встречающейся единицы.

var b:array[1..5,1..6] of integer;
    t:array[1..7,1..8] of integer;
    i,j,k1,k2,l1,p1,l2,p2:integer;
begin
      writeln('Ìàòðèöà B');
      for i:=1 to 5 do
      begin
      for j:=1 to 6 do
         begin
         b[i,j]:=random(11)-5;
         write(b[i,j]:4);
         end;
         writeln;
         end;
         
         writeln('Ìàòðèöà T');
      for i:=1 to 7 do
      begin
      for j:=1 to 8 do
         begin
         t[i,j]:=random(11)-5;
         write(t[i,j]:4);
         end;
         writeln;
         end;
 
k1:=0;
k2:=0;
 
 for i:=1 to 5 do
 for j:=1 to 6 do
 if (b[i,j]=1) then
 begin
 k1:=k1+1;
 if k1=1 then
 begin
 l1:=i;
 l2:=j;
 end;
 end;
 
 for i:=1 to 7 do
 for j:=1 to 8 do
 if (t[i,j]=1) then
 begin
 k2:=k2+1;
 if k2=1 then
 begin
 p1:=i;
 p2:=j;
 end;
 end;
 
writeln('Êîëè÷åñòâî åäèíèö â ìàòðèöå  = ',k1 ,'; Íîìåð ñòðîêè ïåðâîé åäèíèöû = ',l1,'; Íîìåð ñòîëáöà ïåðâîé åäèíèöû = ',l2);
writeln('Êîëè÷åñòâî åäèíèö â ìàòðèöå Ò = ',k2 ,'; Íîìåð ñòðîêè ïåðâîé åäèíèöû = ',p1,'; Íîìåð ñòîëáöà ïåðâîé åäèíèöû = ',p2);
 
end.

type mas=array[1..7,1..8] of integer;
var b,t:mas;
    i,j,k1,k2,l1,p1,l2,p2:integer;
 
procedure odin(n,m:integer;x:mas);
var i,j,k,p1,p2:integer;
begin
 k:=0;
 for i:=1 to n do
 for j:=1 to m do
 if (x[i,j]=1) then
 begin
 k:=k+1;
 if k=1 then
 begin
 p1:=i;
 p2:=j;
 end;
 end;
 writeln('Êîëè÷åñòâî åäèíèö â ìàòðèöå = ',k,' ; Íîìåð ñòðîêè ïåðâîé åäèíèöû = ',p1,'; Íîìåð ñòîëáöà ïåðâîé åäèíèöû = ',p2);
 end;
 
begin
      writeln('Ìàòðèöà B');
      for i:=1 to 5 do
      begin
      for j:=1 to 6 do
         begin
         b[i,j]:=random(11)-5;
         write(b[i,j]:4);
         end;
         writeln;
         end;
 
         writeln('Ìàòðèöà T');
      for i:=1 to 7 do
      begin
      for j:=1 to 8 do
         begin
         t[i,j]:=random(11)-5;
         write(t[i,j]:4);
         end;
         writeln;
         end;
 
odin(5,6,b);
odin(7,8,t);
 
end.

 i,j,k1,k2,l1,p1,l2,p2:integer;

i,j:integer;