Модуль-Разработать подпрограмму определения количества нулевых элементов матрицы А(KxM)

[__Ole4ka__]

Добрый день!
Помогите пожалуйста написать программу с помощью модуля,процедуры и функции соответственно.Текст задачи: Разработать подпрограмму определения количества нулевых элементов матрицы А(KxM).
K=5; M=3.

[__Ole4ka__]

Вот данная программа без модуля
каким образом ее изменить?

program LR8;
const k=5;
      m=3;
type mas=array[1..k,1..m] of real;
var a:mas;
procedure vvod(var A:mas;k,m:integer);
          var i,j:integer;
          begin
               for i:=1 to k do begin
                   for j:=1 to m do begin
                                writeln('vvedi znachenie A[',i,',',j,']  ');
                                readln(A[i,j]);
                   end;
               end;
          writeln('vvod zakonchen');
          writeln;;
end;
function h(A:mas;var k,m:integer):integer;
          var i,j,t:integer;
          begin t:=0;
               for i:=1 to k do begin
                   for j:=1 to m do begin
                          if a[i,j]=0 then t:=t+1;
                   end;
               end;
          h:=t;
end;


begin
vvod(A,k,m);
writeln('kolichestvo 0 = ',h(a,k,m));
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

да легко!

ваша основная программа будет выглядеть так:

program LR8;

uses lr8unit1;

var A: mas;

begin
  vvod(A, k, m);
  writeln('kolichestvo 0 = ', CountZero(a, k, m));
  readln;
end.

модуль LR8UNIT1.PAS

unit lr8unit1;

interface

const
  k = 5;
  m = 3;

type mas = array[1..k, 1..m] of real;

procedure Vvod(var A: mas; k, m: integer);

function CountZero(A: mas; k, m: integer): integer;

implementation

procedure vvod(var A: mas; k, m: integer);
var i, j: integer;
begin
  for i := 1 to k do
    for j := 1 to m do begin
      writeln('vvedi znachenie A[', i, ',', j, ']  ');
      readln(A[i, j]);
    end;
  writeln('vvod zakonchen');
  writeln; ;
end;

function CountZero(A: mas; k, m: integer): integer;
var i, j, t: integer;
begin
  t := 0;
  for i := 1 to k do
    for j := 1 to m do
      if a[i, j] = 0 then t := t + 1;
  CountZero
    := t;
end;


begin

end.