Niik

Вот текст программы с модулем, в котором должна быть функция проверки наличия хотя-бы одного нулевого элемента в одномерном массиве и на основе этой функции нужно написать функцию для вычисления количества строк, не содержащих нулей, program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,

Unit6 in 'Unit6.pas';

Var
A:TMatrix;
i,count:integer;

begin
AddRandomData(A);
Print(A);
for i := 1 to N do writeln(IsNul(A[i]));
writeln(count);

Readln;
end.

unit Unit6 ;

interface
Const N=5; // Число столбцов
M=5; // Число строк
Type TVector=array[1..N] of integer;
TMatrix=array[1..M] of TVector;
Procedure AddRandomData(var X:Tmatrix);
Procedure Print(const X:Tmatrix);
Function IsNul( const Vector:TVector):boolean;
Function Kolvo(const Matrix:TMatrix):integer;
implementation
Procedure AddRandomData(var X:Tmatrix);
var i,j:integer;
begin
Randomize;
For i:=1 to M do
For j:=1 to N do
X[i,j]:=Random(10);
end;
Procedure Print(const X:Tmatrix);
var i,j:integer;
begin
For i:=1 to M do
begin
For j:=1 to N do
write(X[i,j]:3);
writeln;
end;
end;
Function IsNul( const Vector:TVector):boolean;
var
i,k:integer; flag:boolean;
begin
flag:=false;
for i := 1 to N do
begin
if vector[i]=0 then flag:=true;
end;
if flag then writeln('da') else writeln('no');

end;
Function Kolvo(const Matrix:TMatrix):integer;
var
i,count:integer;A:TMatrix;
begin
count:=0;
for i := 1 to M do
begin
if not IsNul(A[i]) then count:=count+1;
Kolvo:=count;
end;
end;
end.
Наличие нулей проверяет верно, а вот с количеством строк без нулей проблемы, помогите найти и исправить ошибку

Vladimir_S

В функции IsNul в конце должно быть IsNul:=flag; А нету.