VAR
 A:ARRAY[1..2, 1..6] of INTEGER;
 i,j,i1,j1,Num:INTEGER;
 b:BOOLEAN;
BEGIN
 { Ввод матрицы }
 { ... }
 Num:=0;
 b:=TRUE;
 FOR i:=1 TO 2 DO
  FOR j:=1 TO 6 DO
    IF A[i,j]=1 THEN 
     BEGIN
       INC(Num);
       IF b THEN
         BEGIN
           i1:=i;
           j1:=j;
           b:=FALSE;
         END;
     END;
 WriteLn('First "1" position is [',i1,',',j1,']');
 WriteLn('Number of "1" is ', Num);
 ReadLn;
END.