Текстовый режим, Программа Опции

[Sav93]

Написал прогу...Вот ее условие:
Задан текст. Если в нем встречается заданное пользователем слово, выделить его синим цветом и пониженной яркостью.

Program Zadacha1;
Uses CRT;
Var tex, slovo,  s2 : string;
i : byte;
BEGIN
 ClrScr;
 Write ('ВВедите текст : ');
 Readln(tex);
 Write ('Слово: ');
 Readln(slovo);
   if pos(slovo, tex)<>0
   then
      begin
         i:=pos(slovo, tex);
         s2:= copy(tex, i, length(slovo));
         LowVideo;
         TextColor (blue);
         Write(s2)
      end
   else
      begin
         Writeln ('Нет такого слова в тексте: ');
      end;
 Readkey;
END. 

Прога работает, но слово она выносит и красит, как сделать так чтогбы слово красилось в тексте?

Сообщение отредактировано: Sav93 - 26.02.2011 15:53

[volvo]

как сделать так чтогбы слово красилось в тексте?

Сначала вводить слово, а потом - текст, и выводить его по-другому, потому что твой вариант будет подсвечивать

Иван Поддубный

, если я введу слово "дуб". Есть несколько тем по разбиению строки на слова, ищи их, и переделывай как тебе надо.