Дано четырехзначное число.Обусловьте есть ли однообразные числа в нем. PASCAL

PascalABC.NET 3.4

begin
  var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строчкой
  var l1 := s.Length; // всего цифр
  var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
  if l1 = l2 then Writeln('Схожих цифр нет')
  else Writeln('Схожие числа есть')
end.