procedure process(var x, o: TextFile);
var avr: Real;
    k: Integer;
begin
  avr:=Average(x); //функция, которая возвращает среднее
  reset(x); Rewrite(o);
  while not Eof(x) do
  begin
    Readln(x,k);
    if k > avr then Writeln(o,k);
  end;
  CloseFile(o);
end;

uses
  SysUtils;

var f1, f2: TextFile;
begin
  AssignFile(f1, 'f1.txt');
  AssignFile(f2, 'f2.txt');
  process(f1,f2);
end.