Найти число таких групп, которые начинаются и заканчиваются одной и той же буквой - Pascal

Формулировка задачи:

Дан текст, хранящийся в текстовом файле f, каждый символ которого может быть малой буквой, цифрой или одним из знаков ‘+’, ‘-‘, ‘*’. Группой букв будем называть такую совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Аналогично определяется группа цифр и группа знаков. Найти число таких групп, которые начинаются и заканчиваются одной и той же буквой. Все эти группы вывести в новый файл g Помогите пожалуйста.

upp

Решение задачи: «Найти число таких групп, которые начинаются и заканчиваются одной и той же буквой»

Листинг программы

const m = ['a'..'z'];
 
var f, g: text;
    i, n: integer;
    s, t: string;
 
begin
  assign(f, 'f.txt');
  reset(f);
  assign(g, 'g.txt');
  rewrite(g);
  n := 0;
  t := '';
  while not eof(f) do
    begin
      readln(f, s);
      s := s + ' ';
      for i := 1 to length(s) do
        if s[i] in m
          then t := t + s[i]
          else begin
            if (length(t) > 0) and (t[1] = t[length(t)])
              then begin
                inc(n);
                writeln(g, t)
              end;
            t := ''
          end
    end;
  close(f);
  close(g);
  write('Число групп, начинающихся и заканчивающихся одной и той же буквой: ', n);
  readln
end.

Объяснение кода листинга программы

В первой строке объявляются переменные m, f, g, i, n, s, t, которые будут использоваться в коде.
В строке 11 задается имя файла для чтения и записи - 'f.txt'.
Строка 12 задает имя файла для записи - 'g.txt'.
Строки 13-14 считывают файл 'f.txt' до конца (до достижения конца файла).
Строка 15 считывает одну строку из файла 'f.txt' и добавляет ее к переменной s.
Строка 17 проверяет, содержит ли текущая строка s хотя бы одну букву из диапазона m.
Если текущая строка s содержит хотя бы одну букву из m, то эта буква добавляется к переменной t.
Если длина переменной t больше 0 и первая буква t равна последней (то есть t[1] = t[length(t)]), то увеличивается значение переменной n и записывается текущая строка t в файл 'g.txt'.
После окончания чтения файла 'f.txt' и записи в файл 'g.txt' выполняется закрытие обоих файлов.
Выводится сообщение 'Число групп, начинающихся и заканчивающихся одной и той же буквой: ' и значение переменной n.
Запрашивается ввод с клавиатуры.