Пользователь вводит натуральное число. Программа определяет, есть ли среди его цифр единица. (Через Паскаль)

var   x: integer;  f: boolean = false;begin  write('Введите число = ');  readln(x);  while (x<>0)  do   begin    if (x mod 10 = 1) then    begin      f := true;      break;    end;    x := x div 10;  end;    if f then     writeln('Есть')  else     writeln('Нет');end.