Lấy số liệu từ tệp cho trước (bài2.inp) .viết chương trình cho ra dãy số âm với giá trị tuyệt đối của Ai nhỏ hơn 100 và viết vào tệp (bài2.out) Dòng

uses crt;
var d:text; i,n:longint; a:array[1..100000]of longint;
begin
   clrscr;
   assign(d,’input.pas’);reset(d);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,’output.pas’);rewrite(d);
      for i:=1 to n do 
         if(a[i]<0)and(abs(a[i])<100) then write(d,a[i]);
   close(d);
readln;
end.