Ссылки, списки, динамические структуры данных - Free Pascal

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

Здравствуйте, помогите пожалуйста. Построить список символов, содержащий входной текст. Написать программу, которая: Печатает текст из первых букв всех слов списка.

Решение задачи: «Ссылки, списки, динамические структуры данных»

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

uses fgl;
 
type
  TCharList = specialize TFPGList<char>;
var
  lst : TCharList;
  s : string;
  ch, prev : char;
 
begin
  // readln(s);
  s := 'this is a test string';
  lst := TCharList.Create;
  for ch in s do lst.Add(ch);
 
  prev := ' ';
  for ch in lst do
  begin
    if (prev in [' ']) and not (ch in [' ']) then write(ch:3);
    prev := ch;
  end;
 
  lst.Free;
  readln;
end.

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

Объявлены переменные: s: строка, содержащая тестовую строку; lst: список символов, созданный на основе класса TFPGList; ch, prev: текущий и предыдущий символы, используемые для сравнения.
Создается объект lst с помощью метода Create.
В цикле for каждый символ из строки s добавляется в список lst с помощью метода Add.
В цикле for каждый символ из списка lst выводится на экран с помощью метода write, если он не пробел и предыдущий символ был пробелом.
После завершения работы со списком lst, он освобождается с помощью метода Free.
Ввод-вывод данных осуществляется с помощью функции readln.