Поиск слова Опции

[Sav93]

Программа ищет все буквы "а", как зделать так чтобы она красила слово если оно заканчивается на букву "а"?
Что-то я сам дойти не могу...

 Program Tarasus;
Uses CRT;
const
a = ['a'];
Var text : string;
i : byte;
BEGIN
Write ('Vvedite text: ');
Readln (text);
For i := 1 to Length(text) do
begin
Write(text[i]);
if (text[i])=' ' then inc(i);
 For i:=1 To length(text) Do
 If text[i] In a Then
 begin
 textcolor(4);
 write (text[i]);
 end
 else
 begin
 textcolor(7);
 write(text[i]);
 end;
 readkey;
 end;
 end.