Помогите пожалуйста
Pascal
Уровень C. Ввести натуральное число и определить, верно ли, что в его записи есть
две одинаковые цифры (не обязательно стоящие рядом).
Пример:
Введите натуральное число:
12342
Да.
Пример:
Введите натуральное число:
12345
Нет.
Проверьте программу,не работает почему-то
program nn;
var N,a,b,k,s:integer;
begin
writeln('Введите натуральное число');
readln(N);
k:=0;
N:=s;
while (N>0) do begin
a:=N mod 10;

while (N>0) do begin

b:=N mod 100 div 10;
if (a=b) then begin
k:=k+1;
end;
N:=N div 10;
end;
if (k>0) then
writeln('да')
else
N:=s;
N:=N-N mod 10;
end;
if (k>0) then writeln ('да') else
writeln('нет');
end.