[T-dayne]

У меня все работает с такой функцией:

Код:

function slovary(income:char):char; 
begin
result:=income; 
case income of 
'1':result:='9'; 
'2':result:='8'; 
'3':result:='7'; 
end;