Помогите, пожалуйста Дано...

Помогите, пожалуйста Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот ,что дальше не знаю
program dzkan;
var x,a,b,c:integer;
begin
writeln(Введите трехзначное число');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;

 

Var a,b,c,d:integer;
Begin
readln(a);
b:=a mod 10;
c:=a mod 100 div 10; 
d:=a div 100;
If (b=c) or (b=d) or (c=d) then
writeln('YES')
else
writeln('No')
End.