Проверить, есть ли в четырехзначном числе одинаковые цифры

//Pascal ABC.NET v3.0 сборка 1111

var 
 a,i:integer;
 s:string;
begin
readln(a);
str(a,s); //переводим число в строку, вот такой я нехороший
for a:=1 to length(s)-1 do
 for i:=a+1 to length(s) do
  if s[a]=s[i] then
   begin;
    writeln('Yes');
    exit;
   end;
writeln('No');
end.

Пример ввода:
1224
Пример вывода:
Yes