Определить в каком из чисел больше цифр 5

var
  k1, k2,k3 : integer;
  n1, n2 : longint;
function kol (a : longint) : integer;
var t : integer;
begin
  t := 0;
  while a <> 0 do
  begin
    inc(t);
    a := a div 10;
    if a=5 then inc(k3);
  end;
  kol := t
end;
 
begin
  k1 := 0;
  k2 := 0;
  write('первое число: ');
  readln(n1);
  write('второе число: ');
  readln(n2);
  k1 := kol(n1);
  k2 := kol(n2);
  writeln('кол-во цифр в первом числе: ', k1);
  writeln('кол-во цифр во втором числе: ', k2);
  writeln('Кол-во цифр 5 в 1 числе')ж
  writeln(k3);
  if k3>k4 then writeln('Кол-во цифр 5 в 1числе больше
end.

function kol(a:integer):byte; {в АВС integer=longint}
var t:byte;
begin
a:=abs(a);{число может быть и отрицательным}
t:=0;
while a>0 do
 begin
  if a mod 10=5 then inc(t);
  a:=a div 10;
 end;
kol:=t
end;
var n1,n2:integer;
    k1,k2:byte;
begin
write('первое число n1=');
readln(n1);
write('второе число n2=');
readln(n2);
k1:=kol(n1);
k2:=kol(n2);
writeln('Кол-во цифр 5 в 1 числе=',k1);
writeln('Кол-во цифр 5 во 2 числе=',k2);
if k1>k2 then writeln('Кол-во цифр 5 в 1 числе больше')
else if k1<k2 then writeln('Кол-во цифр 5 во 2 числе больше')
else writeln('Кол-во цифр 5 в обоих числах одинаковое')
end.