если вводится не буква и цифра выводится сообщение Опции

[dct]

как вывести сообщение о том что была введина цифра или буква уже повторялась????

[Altair]

надо сохранять все введенные символы... (буквы)
если введенна цифра, или в списке есть уже такая буква выводим диагностику

пример для цифры:

Код

var
c:char;
begin
c:=readkey;
case c of
'1'..'9','0': writeln('введена цифра');
 else write('символ');
end
end.