Дано четырехзначное число.Определите есть ли одинаковые цифры в нем. PASCAL

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