Поддержка русского языка

[Дож]

http://www.cyberforum.ru/free-pascal/thread312406.html

Код: Выделить всё

SetConsoleCP(1251);
SetConsoleOutputCP(1251);

[Vadim]

Или "866"...
Надо сначала выяснить, в какой кодировке консоль работает, а то потом будет разнобой в программах.