Получить строку, в которой чередуются слова первой и второй строки

const
  dividers=[',',' ','.','-','=',';',':','_','+','*','/'];{äîïèøåòå íóæíûå}
var
  temp,s1,s2:string;
  a,b:array[1..128]of string;
  i,max,max1,max2:integer;
begin
  readln(s1,s2);
  max1:=0;
  max2:=0;
  temp:='';
  {âûäåëÿåì ñëîâà èç ïåðâîãî}
  for i:=1 to length(s1) do
  begin
    if not (s1[i] in dividers) then
      temp:=temp+s1[i];
    if (s1[i] in dividers) or (i=length(s1)) then
    begin
      if temp<>'' then
      begin
        inc(max1);
        a[max1]:=temp;
      end;
      temp:=''
    end
  end;
  {âûäåëÿåì ñëîâà èç âòîðîãî}
  for i:=1 to length(s2) do
  begin
    if not (s2[i] in dividers) then
      temp:=temp+s2[i];
    if (s2[i] in dividers) or (i=length(s2)) then
    begin
      if temp<>'' then
      begin
        inc(max2);
        b[max2]:=temp;
      end;
      temp:=''
    end
  end;
  {âîññòàíàâëèâàåì ñòðîêó ñ ÷åðåäóþùèìèñÿ ñëîâàìè}
  i:=1;
  if max1>max2 then
    max:=max1
  else
    max:=max2;
  while (i<=max) do
  begin
    if i<=max1 then
      write(a[i]);
    if i<=max2 then
      write(b[i]);
    inc(i)
  end;
  writeln
end.