viết chương trình đọc dữ liệu từ tệp songuyen.txt và đưa ra màn hình tổng các số âm trong tệp

program tong_am;

uses crt;

var f:text;

      n,t:integer;

begin

      clrscr;

      Assign(f,'songuyen.txt');  reset(f);

      t:=0;

      while not eof(f) do

            begin

                  read(f,n);

                  if n<0 then t:=t+n;

            end;

      write('Tong cac so am la: ',t);

      close(f);  readln;

end.

uses crt;

var f1 : text; i, s : integer;

begin

clrscr;

s := 0;

assign(f1, 'songuyen.txt'); reset(f1);

while not eof(f1) do

    begin

        read(f1, i);

        if i < 0 then s := s + i;

    end;

write('Tong so am : ', s);

close(f1);

readln

end.