Cho tệp "TB.INP" gồm nhiều dòng mỗi dòng 1 là 1 số nguyên.hãy tính trung bình các số đó và ghi kết quả vào tệp "TB .Out"

Const Fi='TB.INP';
      Fo='TB.OUT';
Var f,g: text;
    A: array[1..1000] of longint;
    n,i,s: longint;
    tbc: extended;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        n:=0; s:=0;
        While not eof(f) do
        Begin
                inc(n);
                Read(f,A[i]);
                s:=s+A[i];
        End;
        tbc:=s/n;
        Write(g,'Trung binh cong la: ',tbc:0:2);
        Close(f);
        Close(g);
End.

program bai_giai;
var f,g:text;
    n,tong,dem:longint;
begin
    Assign(f,'TB.INP');  reset(f);
    Assign(g,'TB.OUT');  rewrite(g);
    tong:0; dem:=0;
    while not eof(f) do
        begin
            readln(f,n);
            tong:=tong+n; dem:=dem+1;
        end;
    write(g,tong/dem:0:2);
    close(f); close(g);
end.