Яркость Опции

[Sav93]

Есть программа, но работает некорректно, 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.

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