Дано пятизначное число, определить содержит ли оно одинаковые числа ? Паскаль ​

//программа будет работать для чисел, которые входят в диапазон longint

var

x : longint;

save, checker, lv : integer;

begin

checker := 0;

readln(x);

x := abs(x);

while (x <> 0) and (checker < 1) do

begin

checker := 0;

save := x mod 10;

x := x div 10;

lv := x;

while lv <> 0 do

begin

 if lv mod 10 = save then

   checker := 1;

 lv := lv div 10;

end;

end;

if (checker = 1) then  

 writeLn('YES')

else  

 writeLn('NO');

end.