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

[Puzo]

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

[klem4]

функция для первого варианта (без '/')

function get_abbreviation(const s: string; i: byte): string;
begin
  if i > length(s) then get_abbreviation := '' else
   if (s[i] <> ' ') and (i = 1) or (s[i - 1] = ' ') then
    get_abbreviation := s[i] + get_abbreviation(s, succ(i))
     else get_abbreviation := get_abbreviation(s, succ(i));
end;

writeln(get_abbreviation(s, 1))