Паскаль - Text&Graph Опции

[R_c4D]

Подскажите пожалуйста - как (в Турбо Паскале) перейти из
текстового режима в графический правильно, а то после первого
запуска программы (при этом всё проходит нормально - выводится и
текст и графика) в коде все русско-язычные символы автоматически
переводятся в какие-то иероглифы, скомпилированный .exe-файл
полностью работает (не без EGAVGA.BGI).

Uses Crt,Graph;
...
..., gd,gm:integer;
...
{здесь идёт текстовая часть программы}
...
Readln;
{начинается графический режим}
  gd:=0;
  InitGraph(gd,gm,'');
  SetViewPort(0,0,640,480,ClipOn);
...
{рисунок}
...
  Readln;
  CloseGraph;
End.

Заранее ОГРОМНОЕ СПАСИБО за любую помощь!

[Malice]

Делаешь все правильно, проблема в виндовсе, он сбрасывает шрифты.