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

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.

program bai_giai;
uses crt;
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
            read(f,n);
            t:=t+n; d:=d+1;
        end;
    write(g,t/d:0:2);
    close(f); close(g);
end.