Дано неоднозначное число. Проверить, есть ли посреди цифр данного числа цифра

Var
   A:longint;
   k:byte;
Begin
k:=0;
Write('Введите число: ');ReadLn(A);
A:=Abs(A);
While A gt; 0 do
   Begin
   if A mod 10 = 4 then k:=1;
   A:=A div 10
   End;
if k=0 then WriteLn('В данном числе нет цифры 4')
else WriteLn('В данном числе есть цифра 4');
End.