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

[__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.

[Федосеев Павел]

С помощью функции задача уже решена (функция h).
С помощью процедуры - в h внеси небольшие изменения

procedure Count0 (const A:mas; k, m: integer; var t: integer);
var
  i, j: integer;
......... 
далее без изменений тело функции h без строки h:=t

её вызов в основной программе

var
  c0: integer;
....
begin
.....
  Count0(A, k, m, c0);
  writeln('kolichestvo 0 = ', c0);
.....
end.

А что подразумевается под "написать программу с помощью модуля"?

[Krjuger]

Разнести процедуры,функции и их вызов в разные файлы.
Если можно так сказать, сделать библиотеку своих процедур и функций, потом подгрузить ее к файлу, в котором они будут вызываться.
Грубо говоря, ты пишеш using CRT и потом вызываеш clnscr , вот CRT это и есть модуль, в котором описана процедура clnscr.
Почему модуль,а не библиотека хоть убей не знаю, но так говорят и те, кто меня обучал паскалю.