Есть программа, но работает некорректно, 1 слово должно быть LowVideo, 2- NormVideo, 3 -HighVideo, 4 - Low... и так дальше...

 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.

Что можете подсказать?

j := 0;
For i := 1 to Length(S) do
begin
   Write(s[i]);
   if (s[i])=' ' then inc(j);

   case j mod 3 of
      0: LowVideo;
      1: NormVideo;
      2: HighVideo;
   end
end;

Так лучше?

P.S. А еще лучше - вот так:

j := 0;
For i := 1 to Length(S) do
begin
   Write(s[i]);
   if (s[i])=' ' then
   begin
      inc(j);
      case j mod 3 of
         0: LowVideo;
         1: NormVideo;
         2: HighVideo;
      end;
   end;
end;

, что б режимы попусту не переключать. Только тогда, когда номер слова изменился...

Все работает!!!
Когда же я достигну твоего уровня...(