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 Ketqua.txt, mỗi dòng chứa một số nguyên dương.

program bai_giai;
var f,g:text;
    n:longint;
begin
    Assign(f,'dulieu.INP');  reset(f);
    Assign(g,'ketqua.OUT');  rewrite(g);
    d:=0; t:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if n>0 then writeln(g,n);
        end;
    close(f); close(g);
end.

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.