Ввести с клавиатуры строку.Вывести на экран 2 слово.

var a:string; begin readln(a); a:=copy(a,pos(' ',a)+1,length(a)-pos(' ',a)); a:=copy(a,1,pos(' ',a)); writeln(a); end.