Объединить строки двух текстовых файлов

program lr_20;
var
 b,l,a,m:string;
 e,n:text;
 f:char;
begin
 write('Введите полное имя создоваемого файла: ');
 readln(b);
 assign(e,b); rewrite(e);
 writeln('Введите текст: ');
 repeat
  write('->'); readln(l); writeln(e,l);
  write('Продолжить? y / n : ');
  readln(f);
 until (f='n');
 write('Введите полное имя создоваемого файла: ');
 readln(a);
 assign(n,a); rewrite(n);
 reset(e);
 repeat
  readln(e,m); writeln(n,m);
  if not eof(e) then
  write(n,#13);
 until eof(e);
 close(n);
 close(e);
end.

uses crt;
var f,g,h:text;
    s,s1:string;
begin
clrscr;
assign(f,'vopros.txt');
reset(f);
assign(g,'otvet.txt');
reset(g);
assign(h,'res.txt');
rewrite(h);
while not eof(f)and not eof(g) do
 begin
  readln(f,s);
  readln(g,s1);
  s:=s+'  '+s1;
  writeln(h,s);
 end;
close(f);
close(g);
reset(h);
writeln('‘®¤Ґа¦**ЁҐ Ёв®Ј®ў®Ј® д*©«*:');
while not eof(h) do
 begin
  readln(h,s);
  writeln(s);
 end;
close(h);
readln
end.