viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím ) hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết thủ tục tính tổng các số nguyên có trong tệp đó

var i,n, temp: longint; Arr: array[1..100000000] of longint;
procedure TinhTong();
var temp,kq: longint;
begin
    assign(input,'huanvo.DAT');
    reset(input);
    for i:=1 to n do read(temp);
    kq:=kq+temp;
    writeln;
    writeln('Tong la: ',kq);
end;
begin
    write('Nhap so N: ');
    readln(n);
    for i:=1 to n do 
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(Arr[i]);
    end;
    
    assign(output,'huanvo.DAT');
    rewrite(output);
    
    for i:=1 to n do write(Arr[i],' ');
    TinhTong();
end.

uses crt;
var f:text; n,i:longint; a:Array[1..1000000]of longint;
function s(n:longint):longint;
var i:longint;
begin
   s:=0;
   for i:=1 to n do s:=s+a[i];
end;
begin
clrscr;
   assign(f,'huanvo.DAT');reset(f);
      write('n=');readln(n);
      for i:=1 to n do readln(f,a[i]);
   close(f);
   writeln(s(n));
end.