Пользователь вводит массив из целых чисел. Найти:количество чисел с максимальной цифрой 6

type mas=array[1..20] of integer;
procedure massiv(var m:mas;var n:integer);
var i:integer;
begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите элементы массива целые числа, в том числе с цифрами 6');
for i:=1 to n do
 begin
  write('m[',i,']=');
  readln(m[i]);
 end;
writeln('Введенный массив');
for i:=1 to n do
write(m[i],' ');
writeln;
end;
 
function cf_6(m:mas;n:integer):integer;
var i,x,mx,k:integer;
begin
k:=0;
for i:=1 to n do
 begin
  x:=abs(m[i]);
  mx:=0;
  while x>0 do
   begin
    if x mod 10>mx then mx:=x mod 10;
    x:=x div 10;
   end;
  if mx=6 then k:=k+1;
 end;
cf_6:=k;
end;
function fact(n:integer):real;
var i:integer;
    f:real;
begin
f:=1;
for i:=2 to n do
f:=f*i;
fact:=f;
end;
 
var  m:mas;
     n:integer;
begin
massiv(m,n);
writeln('Количество чисел с максимальной цифрой 6=',cf_6(m,n));
write('Факториал последнего элемента ',m[n],'!=',fact(m[n]):0:0)
end.