Функция в паскале

uses crt;
function Cifra(ch:longint;n,k:byte):boolean;{функция поиска заданной цифры}
var m:longint;
    i:byte;
begin
Cifra:=false;{нет цифры}
m:=0;{отделяя по одной цифре с конца, переворачиваем число}
while ch>0 do
 begin
  i:=ch mod 10;
  m:=m*10+i;
  ch:=ch div 10;
 end;
for i:=1 to n do{от первой цифры до заданного номера}
 begin
  i:=m mod 10;{отделяем с конца по одной цифре}
  if i=k then{если есть, болше не ищем}
   begin
    Cifra:=true;
    break;
   end;
  m:=m div 10;
 end;
end;
 
var a:longint;
    n,k:byte;
begin
clrscr;
write('Введите целое число ch=');
readln(a);
repeat
write('Введите номер цифры в числе от 1 до 10 n=');
readln(n);
until n in [1..10];
repeat
write('Введите цифру для поиска k=');
readln(k);
until k in [0..9];
if Cifra(a,n,k) then write('Цифра ',k,' есть!')
else write('Цифры ',k,' нет!');
readln
end.

program kkk;
uses crt;
var n:longint;
     k:integer;
   
function IfNumber(n:longint,k,kol:integer):boolean;
var c:array[1..10]of integer;
     i,nn:integer;
     bln:boolean;
begin
 nn:=10;
 while n<>0 do
 begin
  c[nn]:=n mod 10;
  n:=n div 10;
  nn:=nn-1;
 end;
 bln:=false;
 for i:=nn+1 to nn+kol-1 do if k=c[i] then bln:=true;
 IfNumber:=bln;
end;
 
begin
 clrscr;
 write('Введите число: ');
 readln(n);
 write('Введите цифру: ');
 readln(k);
 write('Введите кол-во цифр: ');
 readln(kol);
 if IfNuber(n,k,kol) then writeln('Такая цифра есть') else writeln('Такой цифры нет');
 readln;
end.

function IfNumber(n:longint,k,kol:integer):boolean;
var c:array[1..10]of integer;
     i,nn:integer;
     bln:boolean;
begin
 nn:=10;
 while n<>0 do
 begin
  c[nn]:=n mod 10;
  n:=n div 10;
  nn:=nn-1;
 end;
 bln:=false;
 for i:=10-kol+1 to 10 do if k=c[i] then bln:=true;
 IfNumber:=bln;
end;