Помогите написать программу в 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.