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

var
  str: string;
  i  : byte;

begin
  readln(str);
  str := str.Replace(':', '');
  foreach c: string in str.Split(';') do
    if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а"
      i += 1;
  writeln(i);
end.