program Project27;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  Tplayer=record
  surname:string[18];
  num:byte;
  YoB:byte;
  W:byte;
end;
var
  player,playerData:Tplayer;
   f:file of Tplayer;
   rf1,rf2:text;
   i,j:integer;
   am:integer;
procedure age;
var pf:file of Tplayer;
    i:integer;
begin


end;
procedure screening(playerData:file of Tplayer, am:integer ; var playerSummary:file of Tplayer);
var age:integer;
begin
while not eof (playerData) do
begin
  for i:=1 to am do
    begin
    age:=2018-playerData.YoB;
      if playerData.W<=5 and age<23 then
      begin
        playerSummary:=playerData;
      end;
    end;
end;

end;

begin
AssignFile(rf1,'input1.txt');
AssignFile(rf2,'input2.txt');
Reset(rf1); Reset(rf2);
while not eof(rf1) do
begin
 read(rf1,player.num); trim(player.num);
 read(rf1,player.surname);trim(player.surname);
end;
while not eof(rf2) do
begin
  read(rf2,playerData.num); trim(playerData.num);
  read(rf2,playerData.YoB);trim(playerData.YoB);
  read(rf2,playerData.W);trim(playerData.W);
  am:=am+1
end;





CloseFile(f);
end.