CÁC BẠN GIÚP MÌNH NHÉ "Viết chương trình đọc 2 số nguyên a,b từ tệp Max.inp. Đưa ra tệp Max.out số lớn nhất ".

program bai_giai;
var f,g:text;
    a,b:longint;
begin
    Assign(f,'Max.inp');  reset(f);
    Assign(g,'Max.out');  rewrite(g);
    readln(f,a,b);
    if a>b then write(g,a) else write(g,b);
    close(f); close(g);
end.

var f1,f2:text;
    a,b:integer;
begin
   assign(f1,'Max.inp');
   reset(f1);
   assign(f2,'Max.out');
   rewrite(f2);
   readln(f1,a,b);
   if a>b then write(f2,a) else
   if a<b then write(f2,b) else write(f2,a,'=',b);
   close(f1); close(f2);
end.