Модули, исправить программу

[ilyas22]

Модуль:
[CODE]
unit gof;
interface
procedure mas( b:array [1..100,1..100] of integer; var n:integer);
implementation
procedure mas( b:array [1..100,1..100] of integer; var n:integer);
var i,j,k,m:integer;
begin
for i:=1 to k do
begin
n:=0;
for j:=1 to m do
if b[i,j]=0 then inc(n);
end;
end;
end.
[CODE]
Основная программа

program _;
uses gof;
var
k,m,i,j:integer; b:array [1..100,1..100] of integer; n:integer;
begin
writeln('введите количество элементов строк');
readln(k);
writeln('введите количество элементов столбцов');
readln(m);
For i:=1 to k do
   begin
         For j:=1 to m do
          begin
            writeln('введите b[',i,',',j,']');
            readln(b[i,j]);
          end;
          end;
for i:=1 to k do
begin
for j:=1 to m do
begin
write(b[i,j]:2);
end;
writeln;
end;
mas(b,n);
for i:=1 to k do
writeln('количества нулевых элементов',i,'-ой строки равно',n)
end.

[evg_m]

procedure mas( b:array [1..100,1..100] of integer; var n:integer);
var i,j,k,m:integer;
begin
for i:=1 to k do//чему здесь равно k?
begin
n:=0;
for j:=1 to m do//чему здесь равно m?

[ilyas22]

они вводятся с клавиатуры

[MaxNik2009]

А по подробнее можно? что не работает?

[ilyas22]

Не считает количество нулевых элементов строк матрицы

[MaxNik2009]

Вот этот момент не понятен в модуле:

procedure mas( b:array [1..100,1..100] of integer; var n:integer);
var i,j,k,m:integer;
begin
  for i:=1 to k do // k - локальная переменная = 0, т.е. цикл от 1 до 0 
  begin
     n:=0; // передал значение и обнуляешь переменную. зачем???
     for j:=1 to m do // m - локальная переменная = 0, т.е. цикл от 1 до 0  
       if b[i,j]=0 then inc(n);
  end;
end;
end.

по тому и не считает.

[ilyas22]

все равно не понятно((( можете написать процедуру

[evg_m]

program _;
uses gof;
var
k,m,i,j:integer; b:array [1..100,1..100] of integer; n:integer;

procedure mas( b:array [1..100,1..100] of integer; var n:integer);
var i,j,k,m:integer;
begin
for i:=1 to k do

переменная k в program
переменная k в procedure mas
это ДВЕ РАЗНЫЕ переменные

чтобы понять, сделай так (выделено жирным)
rocedure mas( b:array [1..100,1..100] of integer; var n:integer);
var ii, jj, kk, mm:integer;

и после этого добейся чтобы программа компилировалась