Почему не увеличивается значение?(pascal)?

Question

[impressive17]

почему-то выдает ошибку:"Ожидалось имя процедуры или функции".Вот код:

program string8;
var stroka,rub,cur:string;
leng,i:integer;
alfavit:array ['a'..'z'] of integer;
begin

readln(stroka);
rub:=copy(stroka,1,Pos('hi',stroka)-1);
leng:=length(rub);

alfavit(stroka[1]):=alfavit(stroka[1]) + 1;

end.

Как это исправить?(заранее спасибо)

Answer 1

[Алексей]

Надо:
alfavit[stroka[1]]:=alfavit[stroka[1]] + 1;