Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе одинаковые цифры

const
    ANSWER: Array[Boolean] Of String[12] = ('Повторов нет', 'Повторы есть');
var
    numb: Word;
    mn: Set Of 0..9;
    flag: Boolean;
begin
    Randomize();
    numb := Random(9000) + 1000;
    Write(numb);
    mn := [];
    repeat
        flag := ((numb mod 10) in mn);
        Include(mn, numb mod 10);
        numb := numb div 10;
    until ((numb = 0) Or flag);
    Write(': ', ANSWER[flag]);
end.

program pr;
 
var
  m, i, a, b, c, d: integer;
 
begin
  m := random(1000, 9999);
  writeln(m);
  a := m div 1000 mod 10;
  b := m div 100 mod 10;
  c := m div 10 mod 10;
  d := m mod 10;
  if (a = b) or (a = c) or (c = b ) or (a = d) or (d = c) or (d = b) then Writeln('есть одинаковые')
  else Writeln('нет одинаковых');
end.

  randomize;
  m := randomrange(1000, 9999);

m := random(1000, 9999);

m := randomrange(1000, 10000);

m := randomrange(10000, 1000);