Đọc từ file ABC.txt gồm các số, xuất ra BCD.txt số lớn nhất

abc_bcd.pas

program abc_bcd;
uses crt;
var t, tout: text;
    max, tmp: int64;
begin
 clrscr;
 assign(t, 'ABC.txt');
 reset(t);
 while not eoln(t) do begin
  read(t, tmp);
  if tmp>max then max:=tmp;
 end;
 close(t);
 assign(tout, 'BCD.txt');
 rewrite(tout);
 write(tout, max);
 close(tout);
end.