цифра пять входит ли в десятичную запись 4х-значного числа k

program cifra;
var a,k:integer;
var flag:boolean;
begin
writeln('Введите 4х-значное число');
readln(k);
if ((1<=(k div 1000))and(10>(k div 1000)))
then begin
        flag:=false;
        a:=k;
        if (((a mod 5)=0)and((a mod 2)<>0))
        then flag:=true
        else begin
               a:=(a div 10);
               if (((a mod 5)=0)and((a mod 2)<>0))
               then flag:=true
               else begin
                    a:=(a div 10);
                    if (((a mod 5)=0)and((a mod 2)<>0))
                    then flag:=true
                    else begin
                           a:=(a div 10);
                           if ((a mod 5)=0) then flag:=true;
                         end
                    end
             end;
         if (flag=true) then writeln('Цифра пять входит в десятичную запись 4х-значного числа')
                        else writeln('Цифра пять не входит в десятичную запись 4х-значного числа')
     end
else begin
writeln('Число не 4х-значное!');
     end;
end.

Uses
 CRT;
Var
 n,kol,l:longint;
begin
repeat
 write('N: ');
 readln(n);
until (n>=1000) and (n<=9999);
while n<>0 do
begin
 if n mod 10=5 then
  inc(kol);
 n:=n div 10;
end;
if (kol=0) or (kol=1) then
 writeln('Öèôðà ïÿòü âõîäèò â  4õ-çíà÷íîå ÷èñëî ',kol,' ðàç')
else
writeln('Öèôðà ïÿòü âõîäèò â  4õ-çíà÷íîå ÷èñëî ',kol,' ðàça');
readkey
end.