Проблема с русским

[OCTAGRAM]

Сообщение от ponchikpk

а это че за код? к чему он?

Если используется School Pak, то ни в какой реестр лезть точно не нужно.

Я думаю, проблема в:

Сообщение от bondik

просто там кодировка досовая(CP866) а в проге вы пишите виндузовой(win-1251),используйте CharToOem и OemToChar для конверта

Таких функций в Turbo Pascal нет, но можно поискать в Интернете, наверняка есть уже.

[Serge_Bliznykov]

ponchikpk, посмотрите, тут куча готовых решений
Текстовые Утилиты - Pascal_Sources_Ru

[delphyok]

У меня тоже подобная проблема была. Пришлось самому модуль сделать, чтобы из текстового файла с обычной ANSI-кодировкой текст отображался в DOSе. На всякий случай объясню - нужно скопировать coding.tpu в папку где лежат все модули, и подключить его к программе с помощью uses. А далее пользоваться функциями вывода строк - например, нужно чтобы строка из файла корректно в досе отображалась, то написать - writeln(todos(строка)), а writeln(toansi(строка)) - наоборот - из доса в виндовскую кодировку.

Не знаю как с точки зрения правильности программирования, но в смысле функциональности модуля, он вроде со своими небольшими функциями справляется