Найти и вывести количество тех из чисел, которые являются положительными - Pascal ABC

Формулировка задачи:

Вводятся N произвольных целых чисел. Найти и вывести количество тех из них, которые являются положительными и при этом произведение цифр которых равно самому числу. Помогите пж...

Решение задачи: «Найти и вывести количество тех из чисел, которые являются положительными»

Листинг программы

program digits;
Var
  a,kol,i,n : longint;
 
function f(k:longint):Uint64;
var
  p: Uint64;
begin
  p:=1;
  While k<>0 Do
    Begin
      p:=p*(k mod 10);
      k:=k div 10;
    End;
  f:=p;
end;
 
Begin
  Readln(n);
  for i:=1 to n do
    begin
      readln(a);
      if (a>0) and (a=f(a)) then
        inc(kol);
    end;
  writeln(kol);
  readln;
End.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующую задачу:

Объявляются необходимые переменные: a, kol, i, n, p - все они имеют тип longint.
Определяется функция f(k), которая принимает один параметр типа longint и возвращает один параметр типа Uint64.
В функции f(k) инициализируется переменная p со значением 1.
Затем в функции выполняется цикл While, который продолжается до тех пор, пока k не станет равным нулю.
Внутри цикла выполняется вычисление значения p с использованием операции модуля 10 и деления на 10 для k.
После завершения цикла значение f(k) присваивается переменной f.
В основной части программы считывается количество чисел для анализа (переменная n).
Затем в цикле for перебираются числа от 1 до n.
Для каждого числа a выполняется считывание.
Если число a больше 0 и равно результату вызова функции f(a), то значение переменной kol увеличивается на единицу.
По завершении цикла выводится значение переменной kol.
Программа завершается после считывания всех чисел и вывода результата.