Задача про повтор цифр в числе Опции

[Biowolf]

Подскажите наилудший вариант решения  задачи.Не могу выбрать наилучший.
Задача должна быть с удобоворимым интерфейсом.В случае неправельного в вода
данных выдовать ошибку и  возврацать к вводу.
Задача  
Дано трехзначное  число проверить если в нем повтаряющиеся цифры.

[Darkwolf]

Помогити сделать вывод ошибки и возвратк вводу если ввели буквы.
вот пробый текст.

Код

PROGRAM zadacha1;
  uses crt;
  VAR N:integer;a,b,c:integer;
  BEGIN
  clrscr;
  WRITE('Vvedite chislo');
        READLN(N);
        while   n<100 do
        begin
         WRITEln('Oshibka. Vi Vveli slishkom malenikoe chislo ');
         WRITEln('Vvedite chislo');
        READLN(N);
        end;
        while    n>999 do
         begin
         WRITEln('Oshibka.Vi Vveli slishkom bolishoe chislo');
  WRITEln('Vvedite chislo');
        READLN(N);
        end;
        a:=n div 100 mod 10;
        b:=n div 10 mod 10;
        c:=n mod 10;
        IF (a=b)  or (a=c) or (c=b)
          THEN
          WRITELN('Est povtor')
          ELSE
          WRITELN('Net povtorov');
   READLN;
  END.