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.