Задача с процедурами. На экзамен., Завтра экзамен, помогите, пожалуйста (срочно) Опции

[Death Smile]

Текст задачи (решение нужно, конечно, в Паскале):
Составить функцию, результатом которой является истинное значение, если символ, заданный при обращении к процедуре, - буква, и ложное значение в противном случае.
P. S. Завтра экзамен, нужно срочно найти решение. Если нужно, постараюсь отблагодарить в Вмз/Вмр.

[volvo]

Case не нужен... Достаточно использовать множества:

function f(ch: char): boolean;
begin
  f := ch in ['a' .. 'z', 'а' .. 'п', 'р' .. 'я'];
end;

Можно добавить и другие символы при необходимости...

[compiler]

'а' .. 'п', 'р' .. 'я'

уже встречал, но так и не понял зачем разбивать алфавит на части...