s2:=vopros[1]; repeat s:=copy(s2,0,pos(s2,' ')-1); s1:=s1+s; // строка из слов которые находятсо до пробелов s2:=copy(s2,pos(s2,' '),length(s2)-1); i:=i+1; until i=3; //количество пробелов