Ввести в ЭВМ предложение длиной не более 70 символов. Подсчитать количество слов, у которых первая и последняя буква одинаковы. Вывести на экран эти слова и их количество. Количество пробелов между словами произвольно — Pascal(Паскаль)

Эта программа считывает предложение (длиной не более 70 символов), разбивает его на слова и проверяет каждое слово на соответствие условию. Если слово удовлетворяет условию, оно добавляется в массив, и счетчик увеличивается. В конце программа выводит найденные слова и их количество.

program CountWords;
uses
  SysUtils;

var
  input, word: string;
  i, count: integer;
  words: TStringArray;

begin
  Write('Введите предложение (не более 70 символов): ');
  ReadLn(input);
  input := input + ' '; // Добавим пробел в конец строки, чтобы обработать последнее слово

  if Length(input) > 70 then
  begin
    WriteLn('Ошибка: введено слишком длинное предложение.');
    Halt;
  end;

  count := 0;
  word := '';

  for i := 1 to Length(input) do
  begin
    if input[i] <> ' ' then
      word := word + input[i]
    else
    begin
      if (Length(word) > 0) and (word[1] = word[Length(word)]) then
      begin
        Inc(count);
        SetLength(words, count);
        words[count - 1] := word;
      end;
      word := '';
    end;
  end;

  WriteLn('Слова, у которых первая и последняя буква одинаковы:');
  for word in words do
    WriteLn(word);

  WriteLn('Количество таких слов: ', count);
end.