Найти среди заданных N чисел число с наибольшим количеством делителей (через процедуру и через функцию)

///процедура вычисляет количество делителей числа A
procedure count(A: integer; var q: byte);
begin
  q := 0;
  for var i := 1 to A do
    if A mod i = 0 then inc(q)//если A делится на i, то количество делителей увеличивается на 1
end;
 
var
  a, N, M: integer;
  q, max: byte;
  
begin
  write('N = ');
  N := readInteger;
  max := 2;//минимальное количество делителей
  for var i := 1 to N do begin
    read(a);//вводим число
    count(a, q);//вызываем процедуру
    if q >= max then begin 
      max := q; //запоминаем новое количество делителей
      M := a //запоминаем число
    end
  end;
  writeln('Число: ', M);
  writeln('Количество делителей: ', max)
end.

///функция возвращает количество делителей числа A
function count(A: integer): byte;
begin
  result := 0;
  for var i := 1 to A do
    if A mod i = 0 then inc(result)//если A делится на i, то количество делителей увеличивается на 1
end;
 
var
  M: integer;
  
begin
  write('N = ');
  var N := readInteger;
  var max : byte := 2;//минимальное количество делителей
  for var i := 1 to N do begin
    var a := readInteger;//вводим число
    var q : byte := count(a);//вызываем фукнкцию
    if q >= max then begin 
      max := q; //запоминаем новое количество делителей
      M := a //запоминаем число
    end
  end;
  writeln('Число: ', M);
  writeln('Количество делителей: ', max)
end.