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 trong các số có trong Dulieu.txt

program bai_giai;
var f,g:text;
    n,max,d:integer;
begin
    Assign(f,'Dulieu.txt');  reset(f);
    Assign(g,'Ketqua.txt');  rewrite(g);
    d:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if d=0 then max:=n
            else if n>max then max:=n;
            d:=d+1;
        end;
    write(g,max);
    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);
     
      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.