Дана квадратная матрица А порядка n. Найдите количество строк матрицы

const max=100;
type arr=array [1..max] of real;
var  A:array [1..max] of arr;
     i,j,n:integer;
     kol:integer;
     Flag:boolean;
     B:arr;
//Процедура считает сумму модулей элементов и 
//сравнивает с 1.  В случаи >1 "поднимаем" флаг,
// и возвращаем его в головную программу
Procedure schet(B:arr; np:integer;var Bool:boolean );
var ii:integer;
    sum:real;
begin
For ii:=1 to np do
  begin
  //Данное условие можно заменить на функцию abs()  
  If B[ii]<0 then B[ii]:=-1*B[ii];
  sum:=(B[ii])+sum;
  end;
If sum>1 then bool:=true;
end;
     
begin
writeln('Введите размер матрицы');
readln(n);
writeln('Введите элементы матрицы' );
for i:=1 to n do
  For j:=1 to n do
    read(A[i,j]);
  //A[i,j]:=random-0.5;
writeln('Исходная матрица'); 
For i:=1 to n do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;
 
kol:=0;
//Данный цикл передаёт строку матрицы процедуре schet. 
For i:=1 to n do
begin
  //Обнуляем флаг.
  Flag:=false;
  schet(A[i],n,Flag);
  //Если флаг поднят, увеличиваем количество на 1.
  If Flag then kol:=kol+1;
end;
//Вывод на печать
writeln('Количество строк нужных строк = ',kol);
end.