Дан набор слов, разделяемых точкой с запятой. Набор заканчивается двоеточием. Определить, сколько в нем слов, заканчивающихся буквой а — Pascal(Паскаль)

Program stroka;

Uses crt;

Var
  s: string;
  i, k: byte;

Begin
  k := 0;
  Clrscr;
  s := 'Строка;в;которой;ищем;слова;заканчивающиеся;на;букву;"а":';
  Write(s);
  For i := 1 to length(s) do
    If (a[i] = ':') or (a[i] = ';') then
      Inc(k);
  Write(k, ' слов, заканчивающихся на букву "а"');

End.