Составить подпрограмму,используя модуль Опции

[__Ole4ka__]

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

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

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.