Паскаль(Строки)

[ax/bx]

Задача:
Даны две строки. Получить строку, в которой чередуются слова первой и второй строки. Если в одной из строк число слов больше, чем в другой, то оставшиеся слова этой строки должны быть дописаны в строку-результат(Символьные массивы использовать нельзя)

Помогите пожалуйста решить, не знаю как делать.

[IT-man]

  var
  st1, st2,rs:string;
  sub,res:string;
  i,j,k1,k2:integer;
begin
readln(st1);
readln(st2);
rs:='';
i:=1;
j:=1;
k1:=length(st1);
k2:=length(st2);
repeat
if i<=k1 then begin
sub:='';
 while (st1[i]<>' ') and (i<=k1) do
 begin
 sub:=sub+st1[i];
 inc(i);
 end;
 res:=res+' '+sub;
 inc(i);
 end;
 if j<=k2  then begin
  sub:='';
  while (st2[j]<>' ') and (j<=k2) do
 begin
 sub:=sub+st2[j];
 inc(j);
 end;
 res:=res+' '+sub;
 inc(j);
 end;
until (i>k1) and (j>k2);
writeln(res);
readln;
end.