Giúp mình với ạ. Cho tệp DuLieu.txt, mỗi dòng chứa một số nguyên. Viết chương trình lọc số nguyên dương trong tệp Dulieu.txt và chuyển sang tệp Ketq

program File;
uses crt;
var    fi,fo:text;
           a: array[1..10000] of integer;
     i,n,max: integer;
begin
      clrscr;
     
      assign(fi,‘Dulieu.txt’);
     
      reset(fi);
     
      while not eof(fi) do
     
              begin
             
                  n:=n+1;
                 
                  readln(fi,a[n]);
                 
              end;
             
      close(fi);
           
      assign(fo,‘Ketqua.txt’);
     
      rewrite(fo);
     
      for i:=1 to n do
     
           If a[i] > 0 then write(fo,a[i]);
     
      close(fo);
   
readln;
end.