Задача на строки

[Yukki]

Даны 4 слова в 4 разных переменных.Образовать новую последовательность символов,состоящую из вторых букв каждого словачерез пробел(использовать склейку «+»)

[p51x]

Ну так используйте. Проблема в чем?

[newerow1989]

var s1,s2,s3,s4,s:string;
begin
   Write('s1 = '); Readln(s1);
   Write('s2 = '); Readln(s2);
   Write('s3 = '); Readln(s3);
   Write('s4 = '); Readln(s4);
   s:='';
   If Length(s1)>1 then
      s:=s+s1[2];
   If Length(s2)>1 then
      s:=s+s2[2];
   If Length(s3)>1 then
      s:=s+s3[2];
   If Length(s4)>1 then
      s:=s+s4[2];
   Writeln(s);
   Readln;
end.