Цитата(граф Монте-Кристо @ 4.10.2011, 2:40) 
Можно ведь сделать, чтобы процедура меняла значение глобальной переменной.
Мне кажется что это уже не соответствует заданию. Плюс к тому еще придется добавлять одну переменную
Код
begin
clrscr;
write('enter any character: ');
readln(a);
if letter_or_not(a) then writeln('simbol "',a,'" is a letter') else writeln('simbol "',a,'" is not a letter');
readln;
end.
clrscr;
write('enter any character: ');
readln(a);
if letter_or_not(a) then writeln('simbol "',a,'" is a letter') else writeln('simbol "',a,'" is not a letter');
readln;
end.