Ввести целое число и определить, верно ли, что в его записи есть две подряд идущие одинаковые цифры. Паскаль

Program qq;

Var a,b,c,k:integer;

m:set of byte;

Begin

Writeln ('Vvedite zeloe chislo');

read(a);

m:=[ ];

k:=0;

while a>0 do

begin

b:=a mod 10;

if not (b in m) then m:=m+[b]

else k:=k+1;

a:=a div 10;

end;

if k=1 then writeln('da')

else writeln('net');

readln;

end.