В текстовом редакторе создать 2 текстовых файла q.txt и а.txt,которые соответственно содержат вопросы и ответы на них. Создать новый файл qa.txt,который будет содержать строки с вопросами и ответами из файлов q.txt и a.txt. Вывести на экран вопросы и ответы — Pascal(Паскаль)

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.