Вывести подстроку из строки

[Mashul'ka]

(В Delphi)Дана строка, содержащая по крайней мере один символ пробела.Вывести подстроку расположенную между первым и вторым пробелом.

[AlexanderKs]

Очень просто:

var
a,b:integer;
str:string;
begin
  str:=Edit1.Text;
  a:=pos(' ',str);
  Delete(str,a,1);
  b:=pos(' ',str);
  if b<>0 then
    Label1.Caption:=Copy(str,a,b-a) else
      ShowMessage('Второй пробел не найден!');
end;