uses crt;
var a,b:array[1..1000] of word;
    i,n:word;
    st:string;
begin
    clrscr;
    randomize;
    n:=0;
    readln(st);
    while pos('  ',st)<>0 do delete(st,pos('  ',st),1);
    if st[1]=' ' then delete(st,1,1);
    if st[length(st)]<>' ' then st:=st+' ';
    while pos(' ',st)<>0 do
       begin
           inc(n);
           val(copy(st,1,pos(' ',st)-1),a[n]);
           delete(st,1,pos(' ',st));
       end;
    for i:=1 to n do read(b[i]);
    for i:=1 to n do
      begin
          if random(2)=1 then write(a[i],b[i])
             else write(b[i],a[i]);
      end;
readln;readln;
end.

Quy luật: khi đọc test, ta thấy là nó xuất b[1], a[1], b[2], a[2],.. tức theo hình lên xuống. Nhưng ở cột cuối thì không theo quy luật nên mình sẽ dùng random. Rõ hơn thì bạn hãy xem hình ở dưới. 

Chương trình:

uses crt;
var i,n:longint; s:string; a:array[1..100000]of string;
b:array[1..100000]of longint;
begin
clrscr;
   write('mat khau cua ban a ');readln(s);
   s:=' '+s+' ';
   for i:=1 to length(s)-1 Do 
      if (s[i]=' ')and(s[i+1]<>' ') then inc(n) else 
      if s[i]<>' ' then a[n]:=a[n]+s[i];
   write('mat khau cua ban b '); 
   for i:=1 to n do read(b[i]); readln;
   randomize;
   for i:=1 to n do 
      if random(2)=0 then write(a[i],b[i]) else write(b[i],a[i]);
readln
end.