program otsimine;
type
  isik=record
  eesnimi, perenimi: string[20];
  synniaasta: integer;
  end;

var
inimene: array[1..800] of isik;
inimene1972:array[1..400] of isik;
abi: isik;
s, aastastr: string;
i, j, n, n1972, min, veakood: integer;
fs, fv: text;

procedure algus;
var vahekoht: integer;
begin
 assign(fs, 'tud3.txt');
 assign(fv, 'tudotsi.txt');
 reset(fs);
 rewrite(fv);
 n:=0;
 while not eof(fs) do
 begin
  n:=n+1;
  readln(fs, s);
  inimene[n].eesnimi:=  copy(s,  1, 20);
  inimene[n].perenimi:= copy(s, 21, 20);
  aastastr:=copy(s, 41, 4);
  val(aastastr, inimene[n].synniaasta, veakood);
 end;
end;

procedure sorteeri;
begin
  for i:=1 to n-1 do
  begin
  min:=i;
   for j:=i to n do
   begin
    if inimene[j].perenimi<inimene[min].perenimi then min:=j;
   end;
  abi:=inimene[i];
  inimene[i]:=inimene[min];
  inimene[min]:=abi;
  end;
end;

procedure otsi1972;
begin
n1972:=0;
 for i:=1 to n do
     if inimene[i].synniaasta=1972 then
     begin
      n1972:=n1972+1;
      inimene1972[n1972]:=inimene[i];
     end;
end;

procedure ots;
begin
 for i:=1 to n do
  writeln(fv, inimene[i].eesnimi, inimene[i].perenimi,
          inimene[i].synniaasta);
 close(fs);
 close(fv);
end;



begin
 algus;
 sorteeri;
 otsi1972;
 ots;
end.