Есть ли одинаковые цифры во введенном числе

var
  l:longint;
  s:string;
  c:char;
  ok:boolean;
begin
  write('Введите число:');
  readln(l);
  str(l,s);
  ok:=false;
  for l:=1 to length(s) do begin
    c:=s[1];
    delete(s,1,1);
    if pos(c,s)>0 then begin  
      ok:=true;
      break;
    end;  
  end;
  if ok then writeln('одинаковые цифры в числе имеются') else writeln('одинаковых цифр нет');
end.

var
  l:longint;
  s:string;
  c:char;
  ok:boolean;
begin
  write('Введите число:');
  readln(l);
  str(l,s);
  ok:=false;
  while s<>'' do begin
    c:=s[1];
    delete(s,1,1);
    if pos(c,s)>0 then begin  
      ok:=true;
      break;
    end;  
  end;
  if ok then writeln('одинаковые цифры в числе имеются') else writeln('одинаковых цифр нет');
end.

uses crt;
var
 N : integer;
 i, j, k, z : integer;
 q : boolean;
Begin
clrscr;
writeln(' определить все ли цифры натурального числа различны');
writeln;
Write('Введите натуральное число: ');
Readln(n);
if abs(n) >= 10 then
begin
k := n;
q := false;
repeat
z := k mod 10;
k := k div 10;
n := k;
repeat
j := n mod 10;
n := n div 10;
if j = z then
q := TRUE;
until (n mod 10 = 0);
until (k div 10 = 0);
if q=TRUE then Writeln('Есть одинаковые цифры') else
Writeln('Все цифры числа различны')
end else
writeln('Единственная цифра в числе');
 readln;
END.

program IsDuplicate;
 
var
  n: integer;
  a, Ad, b, Bd: integer;
  Res: boolean;
begin
  ReadLn(n);
  n := abs(n);
  Res := True;
  a := n;
  while a <> 0 do
  begin
    Ad := a mod 10;
    a  := a div 10;
    b  := a;
    while b <> 0 do
    begin
      Bd := b mod 10;
      b  := b div 10;
      Res := Res and (Ad <> Bd);
      if not Res then
        writeln(a: 8, b: 8, Ad: 3, Bd: 3);
    end;
  end;
  if Res then
    writeln('Все разные')
  else
    writeln('Не все разные');
end.