Uses CRT;
Var
j,I: Integer;
S: String;
Begin
read(s);
LowVideo;
j:=0;
For i:=1 to length(S) do
begin
Write(s[i]);
if (s[i])=' ' then
if j<>3 then
inc(j)
else
j:=1;
case j of
1: highVideo;
2: NormVideo;
3: LowVideo;
end
end
end.
Что можете подсказать?