Считать числа из файла, проанализировать и записать в другой файл - Pascal ABC

program if1;
var a,b,c,n:integer;
f1,f2: text;
begin
assign (f1,'c:\Files\input.txt');
assign (f2,'c:\Files\res.txt');
reset(f1);
read(f1,a,b); // чтение из файла
n:=0; // не обязательно
c:=0; // не обязательно
if a>b then n:=a;
if a<b then n:=b;
if a>b then c:=b;
if a<b then c:=a;
rewrite(f2);
writeln(f2,n);
close(f2);
close(f1);
end.