[M.A.D.M.A.N.]

Если мне не изменяет память, то

Код:

function Rus(mes: string):string;
var
   i: integer;
begin
   for i:=1 to length(mes) do
        case mes[i] of
           'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);
           'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);
        end;
   rus := mes;
end;

Юзоется так

Код:

writeln( Rus('Для завершения нажмите <Enter>'));