Вдвух строках текстого файла находится по одному целому числу. найти какое из этих чисел больше. результат на экран (паскаль)

Var
 f1: text;
 a,b: integer;
begin
assign (f1, '<file adress and name>');
read (f1, a,b);
close;
if a>b then writeln (a, '>', b)
 else writeln (a, '<', b);
end.