Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае.

Может все-таки функцию? Процедура результатов не возвращает... Или опять извращаться?

Вообще-то процедуру, задача из данного списка лаб . Я в этом плохо разбираюсь, мне б хотя бы какое-нибудь решение хоть с функцией, хоть с процедурой без разницы, последняя задача из всех нерешена осталась. Буду признателен любой помощи.

!

нельзя прикреплять doc-файлы

Извините конечно, но мне кто-нибудь поможет в решении?

function f(x:char):char;
begin
if x in ['A'..'Z'] then f:=char (ord(x)+32) else f:=x;
end;

А процедурой и для русских букв попробуй сам ;)