giúp mình với các bạn Cho hai tệp văn bản NGUYEN1.txt và NGUYEN2.txt , mỗi tệp văn bản chứa một số nguyên dương. Em hãy lập trình tạo ra tệp NGUYEN12.txt chứa tổng giá trị hai số trong tệp NGUYEN1.txt và NGUYEN2.txt.

program bai_giai;
var f1,f2,g:text;
    a,b:longint;
begin
    Assign(f1,'NGUYEN1.txt');  reset(f1);
    Assign(f2,'NGUYEN2.txt');  reset(f2);
    Assign(g,'NGUYEN12.txt');  rewrite(g);
    readln(f1,a);  readln(f2,b);
    write(g,a+b);
    close(f1); close(f2); close(g);
end.

var f1,f2,f:text;
    a,b:qword;
begin
    assign(f1,'NGUYEN1.txt');reset(f1);
    assign(f2,'NGUYEN2.txt');reset(f2);
    assign(f,'NGUYEN12.txt');rewrite(f);
    readln(f1,a);
    readln(f2,b);
    write(f,a+b);
    close(f1);close(f2);close(f);
end.