Проблема с задачей в Delphi

[миха18]

Люди, помогите, не знаю как делать задачу

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

[Chudo4258]

Я так понимаю, задание если перевести на русский язык то будет:

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

Если я правильно понял задание, то должно быть так:

while S<>nil do
 begin
  if S^.inf<>'' then write(S^.inf[1]);
  S:=S^.next;
 end;