Помогите решить задачу в паскале на строковый тип

[valis]

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

[VisTBacK]

Я кажется догадываюсь. Сейчас решу.

[valis]

Ну так что?

[eoln]

const{*}
  razdel = [',', '-', ':'];{*}
var
  s, st, stroka: string;
  d: integer;
begin
  write('s = '); readln(st);
  s := ' ' + st;
  d := 0;{*}
  repeat{*}
    inc(d);{*}
    if s[d] in razdel then{*}
    begin{*}
      delete(s, d, 1);{*}
      insert(' ', s, d);{*}
    end;{*}
  until d > length(s);{*}
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);{*}

  d := pos(' ', s);
  while d > 0 do
  begin
    stroka := stroka + copy(s, d+1, 1);
    delete(s, 1, d+1);
    d := pos(' ', s);
  end;
  writeln('Dano = ', st);
  writeln('Otvet = ', stroka);
  readln
end.

Строки сожержащие {*} можно удалить, они на случай если между словами несколько пробелов или запятые.