String Опции

[Sav93]

Написал программу, но мне надо чтобы буква "а" выделялась красным лишь в последнем слове...Подскажите что можно сделать.

Program textus;
Uses CRT;
const
z = ['a'];
Var text,  s1 : string;
i: byte;
BEGIN
     Write ('Введите текст: ');
     Readln (text);
      For i:=1 To length(text) Do
       If text[i] In z Then
         begin
          highvideo;
           TextColor(4);
             write(text[i]);
            end
            else
   begin
  TextColor(7);
  write(text[i]);
  end;
     Readkey;
END.

Заранее спасибо!

[Sav93]

Ага...спасибо...все понял, я просто както и не подумал про repeat, все думал как бы через for найти последнее слово. Спасибо большое!