Создание программы

[Mr88ZET]

Пожалуйста напишите программу, которая принимает строку символов, содержащую несколько слов (для простоты считаем, что слово состоит из символов отличных от пробела), разделенных одним или больше пробелами. Перед первым словом пробелы могут отсутствовать или может быть один или несколько пробелов. Строка может быть пустой. Программа должна сформировать и выдать на экран дисплея аббревиатуру слов строки, т.е. строку, первый символ которой есть первый символ первого слова исходной строки, второй символ - первый символ второго слова и т.д.

[Mr88ZET]

забыл уточнить, программка нужна для паскаля! Взарание благодарен помощи!

[interacia]

Program String3;
var
C:string;
S:string;
i:integer;
begin
// ввод данных
Write('Введите строку');
readln(C);
// вывод результата
S:='';
if not(C[1]=' ') then S:=C[1];
for i:=1 to length(C)-1 do
 begin
 if (C[i]=' ')and(not (C[i+1]=' ')) then S:=S+C[i+1];
 end;
Writeln('Ответ =',S);
end.