Даны два слова. слова состоят из чётного количества символов. получите третье слово, которое состоит из первой половины первого слова и второй половины второго слова. например: ввод: тело, кома; вывод: тема. (паскаль)

Var s1,s2:string;
    len:integer;
begin
  readln(s1);
  readln(s2);
  len:=Length(s1) div 2;
  s1:=Copy(s1,1,len)+Copy(s2,len+1,len);
  writeln(s1);
end.