алфавит порядковый номер букв

Ответ от Weirdie[мастер]
В таблице кодировки DOS есть разрыв между символами "п" и "р" (маленькие русские буквы, для больших букв такого разрыва нет) . Поэтому так:
var
c: char;
begin
write('символ: '); readln(c);
if c in ['А'..'Я'] then
writeln(ord(c)-ord('А')+1)
else if c in ['а'..'п'] then
writeln(ord(c)-ord('а')+1)
else if c in ['р'..'я'] then
writeln(ord(c)-ord('р')+17)
else
writeln('Символ не подходит')'
end.

Здесь предполагается "компьютерный" алфавит, где нет буквы "ё"