Программа на Free Pascal

[alex4824]

Помогите пожалуйста составить программу: Вводится матрица из NхМ целых положительных чисел. Найти число с наибольшим количеством нулей. Составить подпрограмму для подсчета нулей в числе

[Hacker19_90]

function GetZeroOfNum(num: integer): integer;
var
  count := 0;
begin
  GetZeroOfNum := 0;
  count := 0;
  while num <> 0 do
  begin
    if (num mod 10) = 0 then Inc(count);
    num := num div 10;
  end;
  GetZeroOfNum := count;
end;

[alex4824]

Программа не идет, выдает ошибку

[Hacker19_90]

Я не телепат!
Весь код в студию и сообщение об ошибке!

[alex4824]

Ты пробовал его запускать?

[s-andriano]

Сообщение от alex4824

Ты пробовал его запускать?

Это функция, ее невозможно запустить без основной программы.
А программу ты не привел.