Нужно решить в паскале, условие таково: пользователь вводит число заранее неизвестное. выяснить есть ли в этом числе хотя бы две одинаковые цифры.

Program zz;
var   a,z,z1,z2,z3,z4,z5,z6,z7,z8,x:integer;
begin
readln(a); 
while a>0 do
begin 
x:=a mod 10;   
if x=1 then z:=z+1;   
if x=2 then z1:=z+1;   
if x=3 then z2:=z2+1;   
if x=4 then z3:=z3+1; 
if x=5 then z4:=z4+1;   
if x=6 then z5:=z5+1;   
if x=7 then z6:=z6+1;   
if x=8 then z7:=z7+1;   
if x=9 then z8:=z8+1;   
a:=a div 10;   
end;   
if (z>1) or (z1>1) or (z2>1) or (z3>1) or(z4>1) or (z5>1) or (z6>1) or (z7>1) or (z8>1)
then writeln('yes')     
else writeln('no');
end.