Из двух восьмибуквенных слов образовать последовательность букв, в которой должны чередоваться буквы первого и второго слова — Pascal(Паскаль)

var
  s:string;
  s1,s2:string[8];
  i:integer;
begin
  s:='';
  readln(s1);
  readln(s2);
  for i:=1 to 8 do
    begin
        s:=s+s1[i];
        s:=S+s2[i];
    end;
writeln(s);
end.