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

Var
  a,b,c,d: integer;
begin
  writeln('Введите двузначное число');
  readln(c);
  writeln('Введите цифру a');
  readln(d);
  a:=c div 10;
  b:=c-a*10;
  if (a=d) or (b=d) then
    writeln('цифра ',d,' входит в двузначное число ',с)
 else
    writeln('Цифра в двузначное число не входит');
end.

Пример
Двузначное число 25
Цифра 5
 Цифра 5 входит в двузначное число 25.