Работа с текстом

[dimon_home]

Вот такая задача:
Имеется некоторый текст. Образовать из него новый, в который включить информацию, заключенную между пробелом и запятой.
Заранее спасибо)

[Hacker19_90]

i := 1;
j := 1;
while (i <= Length(Stroka)) do {Stroka -Исходный Текст}
begin
    if (Stroka[i] = ' ') Then {Пробел}
    begin
        while (Stroka[i] <> ',') do
        begin 
            NewText[j] := Stroka[i];
            Inc(i);
            Inc(j);
        end;
    end;
    Inc(i);
end;

[Serge_Bliznykov]

жуть... если под словами "некоторый текст" подразумевается СТРОКА.
а получить требуется "информацию, заключенную между первым в строке пробелом и первой после пробела запятой."
то:

var
  S : string;
begin
   S := 'Вот это пример текста, который обрабатывается!';
   if Pos(' ',S)>0 then
       if Pos(',',Copy(S,Pos(' ',S)+1,255))>0 then
          WriteLn(Copy(S,Pos(' ',S)+1, Pos(',',Copy(S,Pos(' ',S)+1,255))-1));
end.