Viết chương trình đọc dữ liệu từ tệp Lớp.TXT (Tệp Lop.TXT được tạo gồm các số nguyên) Tính tổng các số trong tệp Lop.TXT và ghi kết quả ra màn hình

program ct;
uses crt;
var  n,i,s :  integer;
a : array[1..100] of integer;
begin clrscr;
assign(input,'Lop.TXT');
assign(output,'Lop.OUT');
reset(input); rewrite(output);
readln(n);
s:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do s:=s+a[i];
writeln(s);
close(input); close(output);
readln
end.

uses crt;
var i,n,s:integer;
    a:array[1..1000] of integer;
const Fi='Lop.INP';
      Fo='Lop.OUT';

begin
 assign(input,Fi); reset(input);
 assign(output,Fo); rewrite(output);
 readln(n);
 s:=0;
 For i:=1 to n do
  begin
   read(a[i]);
   s:=s+a[i];
  end;
 writeln(s);
 readln;
end.