Cho tệp văn bản BT.txt gồm nhiều dòng, mỗi dòng chứa số nguyên.Viết chương trình đọc dữ liệu từ tệp BT.txt .Hãy tính trung bình và ghi vào tệp KQ.txt

program bai_giai;
var f,g:text;
    n,t,d:longint;
begin
    Assign(f,'BT.txt');  reset(f);
    Assign(g,'KQ.txt');  rewrite(g);
    t:=0; d:=0;
    while not eof(f) do
        begin
            readln(f,n);
            t:=t+n; d:=d+1;
        end;
    write(g,t/d:0:2);
    close(f); close(g);
end.

uses crt;
var f,g:text;
    a: array[1..1000] of integer;
    n,i:integer;
    s:integer;
begin
clrscr;
assign(f,'BT.txt');
reset(f);
assign(g,'KQ.txt');
rewrite(g);
s:=0;
write('Nhap so cac so can doc: '); readln(n);
for i:=1 to n do
 begin
 readln(f,a[i]);
 s:=s+a[i];
 end;
write(g,'Trung binh: ',s/n:6:2);
close(f);
close(g);
readln;
end.