Pascal. Посчитать кол-во букв, цифр, разделителей в тексте

Помогите, кто врубается как это делать.

вот что я сумел написать, но тут вылетает ошибка на месте где 'if'
Program laba;
Const GL=['a','e','i','o','u','y','w','b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','x','z'];
CF=['0','1','2','3','4','5','6','7','8','9'];
RD=['.',',','/','?','!','\','|','(',')','[',']','{','}','-',';'];
Var T: string;
g,c,r: integer;
i:byte;
Begin
g:=0; c:=0; r:=0;
write('Введите текст (на английском): ');
readln(T);
for i:=length(T) downto 1 do
begin
if i=GL then g:=g+1;
if i=CF then c:=g+1;
if i=RD then r:=g+1;
end;
writeln('GL=',g,'; CF=',c,'; RD=',r);
End.