Giúp mình vs ạ Cho tệp DuLieu.txt, mỗi dòng chứa một số nguyên. Viết chương trình tìm số lớn nhất trong các số và ghi vào tệp Ketqua.txt số lớn nhất t

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);
     
      max:=a[1];
     
      for i:=2 to n do
     
            If max < a[i] then max:=a[i];
           
      assign(fo,‘Ketqua.txt’);
     
      rewrite(fo);
     
      write(fo,max);
     
      close(fo);
   
readln;
end.