name/surname memorand

PROGRAM chiort lisiy;
var arr1,arr2 : array[1..100] of string;
a,i:integer;
st:string;
ch:char;
begin
  i:=1;
  while st<>'exit ' do
    begin
     st:='';
      repeat
       read(ch);
       st:=st+ch
      until ch=' ';
      if st ='exit ' then
       break;
      arr1[i]:=st;
      st:='';
      repeat
       read(ch);
       st:=st+ch;
      until ch=' ';
      arr2[i]:=st;
      i:=i+1;
    end;
  for a:=1 to i do
   writeln(arr1[a],' ',arr2[a]);
end.