Нужно написать на паскале=)) дан набор слов, разделенных точкой с запятой (; ), который заканчивается двоеточием (: ). определить, сколько в нем слов, заканчивающихся буквой «а»

Var s : string;
  i, k : integer;
Begin
  read(s);

  for i:=1 to length(s)-1 do
    if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
      k := k + 1;

  write(k);
End.