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