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

Uses crt;
Var s:string;i:integer;l:boolean;
    m:set of char;
Begin
ClrScr;
Write('Введите число :');readln(s);l:=false;
For i:=1 to length(s) do
begin
 If  (m<>m-[s[i]]) then l:=true;
 m:=m+[s[i]];
end;
If l then Writeln('В числе встречаются одинаковие числа')
     else Writeln('В числе не встречаются одинаковие числа');
end.

var n, n1, d, d1: Integer;
    IsEqual: Boolean;
begin
 write('Введите число n (n>9): ');
 readln(n);
 IsEqual:= false;
 while (n>9) and (not IsEqual) do
  begin
   d:= n mod 10;
   n1:= n div 10;
   while (n1>0) and (not IsEqual) do
    begin
     d1:= n1 mod 10;
     IsEqual:= d1 = d;
     n1:= n1 div 10;
    end;
   n:= n div 10; 
  end;
 if IsEqual
  then writeln('Да')
  else writeln('Нет');
end.

const n=31;
var a:array[1..n]of real;
    i:integer;
begin
writeln('Введите осадки за каждый день после 1 мая');
a[1]:=0;
for i:=2 to n do
 read(a[i]);
writeln;
i:=1;
while a[i]=0 do
 i:=i+1;
writeln(i-1,'дней');
end.

program sad;
var
  a,b,copy,dec,k,c:integer;
  l:boolean;
  i:array[1..100] of integer;
begin
  l:=false;
  b:=1;
  while a<10 do
  begin
    writeln('введите двузначное число');
    readln(a);
    copy:=a;
    writeln(a);
  end;
  while copy > 0 do 
  begin
    copy := copy div 10;
    dec += 1;
  end;
  while a>0 do
  begin
    i[b]:=a mod 10;
    a:=a div 10;
    b:=b+1;
  end;
  for a:=1 to dec do
  begin
  k:=a+1;
    for k:=k to dec do
    begin
      if i[a]=i[k] then
      l:=true;
    end;
  end;
  writeln;
  if l=true then
    writeln('в этом числе есть одинаковые цифры')
  else
    writeln('в этом числе нет одинаковых цифр');
end.

var
  i, j, k, n: integer;
  a: array[1..10] of integer;
  found: boolean;
begin
  write('Введите целое число: ');
  readln(n);
  repeat
    inc(k);
    a[k] := n mod 10;
    n := n div 10
  until n = 0;
  found := false;
  for i := 1 to k - 1 do
    for j := i + 1 to k do
      found := found or (a[i] = a[j]);
  if found then writeln('В этом числе есть одинаковые цифры')
  else writeln('В этом числе нет одинаковых цифр')
end.

var
  n: integer;
  d: array[0..9] of integer;
begin
  readln(n);
  n := abs(n);
  repeat
    inc(d[n mod 10]);
    n := n div 10
  until n = 0;
  while (n < 9) and (d[n] < 2) do inc(n);
  if n <= 9 then writeln('Да') else writeln('Нет')
end.

var
  n: integer;
  s: set of 0..9;
begin
  readln(n);
  n := abs(n);
  repeat
    if n mod 10 in s then break;
    include(s, n mod 10);
    n := n div 10
  until n = 0;
  if n mod 10 in s then writeln('Да') else writeln('Нет')
end.

var
  n: string;
  i: integer;
  s: set of '0'..'9';
begin
  readln(n);
  if n[1] in ['-', '+'] then i := 2 else i := 1;
  repeat
    if (n[i] in s) or not (n[i] in ['0'..'9']) then break else include(s, n[i]);
    inc(i)
  until i > length(n);
  if i <= length(n) then
    if n[i] in s then writeln('Да')
    else writeln('Это не число')
  else writeln('Нет')
end.