Обработка строковой информации

[dancergirl]

Помогите с задачей,она простая,но у меня не работает.Не пойму,что у меня неправильно.
Дан набор слов,разделенный точкой с запятой(.Набор заканчивается символом "/".Определить,сколько в нем слов,заканчивающихся буквой а.
program A;
var S:string;
k,i:byte;
begin
readln(S);
k:=0;
i:=1;
while S[i]<>'/' do
begin
if S[i]='a' and (S[i+1]=';' or S[i+1]='/') then
k:=k+1;
i:=i+1;
end;
writeln(количество слов,заканчивающихся на 'a':',k);
readln
end.

[Sazary]

program A;
var S:string;
k,i:byte;
begin
readln(S);
k:=0;
i:=1;
while S[i]<>'/' do 
 begin
 if (S[i]='a') and ((S[i+1]=';') or (S[i+1]='/')) then
 k:=k+1;
 i:=i+1;
 end;
writeln('count = ',k);
readln
end.

Ошибки:

if S[i]='a' and (S[i+1]=';' or S[i+1]='/') then

Каждое выражение нужно заключить в скобки.

writeln(количество слов,заканчивающихся на 'a':',k);

А это вообще кошмар ) Думаю, догадаетесь почему.

[dancergirl]

Спасибо за помощь,программа работает

[OCTAGRAM]

почему? кавычки забыты — это считается кошмар?