Ввод русских букв в Delphi

[Аццкий Нуп]

Вопрос вообщем-то такой: У меня Turbo Delphi 2006, вот хочу написать простое DOS-приложение, но русский она не выводит, пишет ерунду. Например readln('Привет') не печатает. По русски печатать можно и выводит напечатанное нормально. Дело компиляторе наверно, как бы заставить?

[Карась]

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;

Пример испоьзования: Write(Rus('Привет'));

[Serge_Bliznykov]

Карась, забавно... +1!
позвольте полубопытствовать - а стандартных AnsiToOem или CharToOem в TurboDelphi нет?

[Карась]

Гы.. поправлюсь...
1. Этото код катит в Делфи 7.
2. Незнаю что и как в Турбо Делфи.
3. Этото код взят с каковото учебника и я его пользую иногда...
4. "Например readln('Привет') не печатает" А и недолжно
За вывод на экран отвечает Writeln.