Составить строку из первых букв слов входящих в исходное предложение. - Pascal ABC

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

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

исправьте

var
  u, St: STRING;
  ns, I, l: Integer;
 
begin
  readln(st);
  st := ' ' + st;
  u := '';
  l := length(st);
  for i := 1 to l do 
  begin
    if (st[i] = ' ') and (st[i + 1] <> ' ') then begin
      ns := i + 1; u := copy(st, ns, 1);
    end;
  end;
  write(u, ' ');
end.

Решение задачи: «Составить строку из первых букв слов входящих в исходное предложение.»

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

var s,s1:string;  //без пробелов
    i,n:integer;
begin
 writeln('Введите строку из слов, разделенных пробелами');
 readln(s);
 if s[1]<>' '
   then s1:=s[1]
   else s1:='';
 i:=2; n:=length(s);
 while i<=n do
  begin
   if (s[i-1]=' ') and (s[i]<>' ')
     then s1:=s1+s[i];
   i:=i+1;
  end;
 write(s1);
end.

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

В начале объявляются переменные s и s1 типа string без пробелов.
Затем объявляются переменные i и n типа integer.
Выводится сообщение для ввода строки из слов, разделенных пробелами.
Считывается строка из введенных пользователем данных.
Проверяется, что первый символ строки не является пробелом. Если это так, то первый символ присваивается переменной s1, иначе s1 присваивается пустая строка.
Инициализируются переменные i и n, которые будут использоваться для цикла while.
Начинается цикл while, который будет выполняться до тех пор, пока i меньше или равно n.
Внутри цикла проверяется, что текущий символ (s[i-1]) не является пробелом, и следующий символ (s[i]) не является пробелом.
Если оба условия выполняются, то к переменной s1 добавляется текущий символ.
i увеличивается на 1, n остается неизменным.
После завершения внутреннего цикла while выводится значение переменной s1.