Посчитать число слов в предложении, заканчивающихся на заданную букву

program wend;
 
var s: string;
    c: char;
    i, n: integer;
 
begin
  n := 0;
  writeln('Enter string:');
  readln(s);
  s := s + ' ';
  write('Enter letter: ');
  readln(c);
  for i := 1 to length(s) - 1 do if (s[i] = c) and (s[i + 1] = ' ') then n := n + 1;
  writeln('Count of "', c, '"-ended words: ', n);
  readln
end.

  readln(s);

  for i := length(s) downto 1 do
    if s[i] in ['.', ',', '!', '?', ':', ';', '"', '(', ')', '''']
      then delete(s, i, 1);

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

  for i := 1 to length(s) - 1 do
    if (s[i] = c) and (s[i + 1] in [' ', '.', ',', '!', '?', ':', ';', '"', '(', ')', ''''])
      then n := n + 1;

program letter;
 
var s, w: string;
    c: char;
    i, n: integer;
 
begin
  n := 0;
  writeln('Enter string:');
  readln(s);
  s := s + ' ';
  write('Enter letter: ');
  readln(c);
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1); //оставляем по одному пробелу
  while pos(' ', s) > 0 do //пока не кончатся слова
    begin
      w := copy(s, 1, pos(' ', s)); //копируем слово в буфер
      delete(s, 1, pos(' ', s)); //удаляем слово из строки
      for i := 1 to length(w) do //просматриваем слово, ищем букву
        if w[i] = c then //если буква есть,
          begin
            n := n + 1; //счётчик слов + 1
            break //и прекращаем просматривать слово
          end
    end;
  writeln('Count of words, contained letter "', c, '": ', n);
  readln
end.