из нескольких слов сделать аббревитатуру Опции

[Puzo]

Вобщем задач в том что дана строка с несколькими словами и нужна функция которая из этой строки выдирает первые буквы от слов и записывает в другую строку, например отедл маркетинговых услуг нада получить ому, или еще пример отдел планирования аэронавигационного обеспечения\служба аэронавигационного обеспечения из этого должно получится опао сао
кто может помогите решить сию задачу пжлст

[Neznaika]

Алгоритм:
0: Результат := ПУСТАЯ СТРОКА
1: Удалить лидирующие пробелы из исходной строки.
2: Cтрока пуста? ДА - ВЫХОД, НЕТ - СЛЕДУЮЩИЙ ШАГ.
3: К результату прибавляем(справа естественно) первый символ исходной строки.
4: Удалить все первые символы исходной строки, не являющиеся пробелами.
5: Перейти к шагу 1.

Программа:

function Abbreviatura( S : String ) : String;
var
   Res : String;
   I : Integer;
begin
   {0}
   Res := '';  I := 1;
   repeat
      {1}
       while (I<=Length(S)) and (S[I] = ' ') do
          Inc(I);
      {2}
      if I > Length(S) then
        Break;
      {3}
      Res := Res + S[I];
      {4}
       repeat
          Inc(I)
       until (I > Length(S)) or (S[I] = ' ')
   until FALSE;
   Abbreviatura := Res
end;

{ Основная программа. }
var
   S : String;
begin
   S := 'НАУЧНО ИССЛЕДОВАТЕЛЬСКИЙ ИНСТИТУТ Ч АРОДЕЙСТВА В ОЛШЕБСТВА';
   Write(S,' = ',Abbreviatura(S))
end.   

Работает, корректно обрабатывает пустую строку.

PS
Мне сегодня явно нечего делать