Конфликт Опции

[JTG]

Добрый день. У меня такая вот проблема. Если я в программе использую модуль crt, а потом где-нить пишу простой оператор write или writeln, то он не выводит заданный текст, хотя курсор перемещается на n символов. Если же все упоминания о crt я убираю, все выводится как положено. Подскажите, что мне делать, пожалуйста!

[SKVOZNJAK]

Попробуй запустить вот это.

USES CRT;
VAR Q,W,E,R : BYTE;
LABEL 1,2,3;
BEGIN
TextMode(BW80);
W:=Lo(WindMAX)+1;
E:=HI(WindMAX)+1;
DirectVideo:=true;
TextBackground(0);
1:
INC(Q);
WINDOW(1,1,W,E);
DELAY(1000);
ClrScr;
TextColor(10);
IF Q<2 THEN writeln('W=',W,'   ','E=',E); WRITELN('||||||||||REWQTOIJREWOIJEWQEWQ'); DELAY(3000);
GOTOXY(40,14);
WRITELN('НУ, ЧЕ ВИДИШЬ?');
WINDOW(10,20,50,24);
TextBackground(5);
TextColor(0);
ClrScr;
DELAY(5000);
GOTOXY(4,14);
WRITELN('А ТЕПЕРЬ ?????????????');
SOUND(100);DELAY(4000);NOSOUND;
WRITELN('ЖМИ КЕЮ');
FOR R:=1 TO 20 DO IF KEYPRESSED=TRUE THEN READKEY; 3: IF KEYPRESSED=FALSE THEN GOTO 3; DirectVideo:=FALSE;
IF Q>1 THEN GOTO 2;

TextBackground(4); GOTO 1;
2: TextBackground(3); WINDOW(1,1,W,E); ClrScr;
END.