program TMA003;
type
 zap=record
  fam:string[15];
  year:string[5];
  arm:string[4];
  prop:string[2];
  pol:string[1];
 end;
 tt=array[1..10] of zap;
 t=array[1..10] of string;

var
j,kp,k:integer;
pit:tt;
a:tt;
ff,f:text;
r:char;
i:byte;

procedure ilt;
var
c:zap;
l,o:integer;
begin
 For l:=1 to kp do
  Begin
   For o:=1 to kp-l do
    Begin
     If pit[o].fam>pit[o+1].fam then
      begin
       c.fam:=pit[o+1].fam;
       c.year:=pit[o+1].year;
       c.arm:=pit[o+1].arm;
       c.prop:=pit[o+1].prop;
       c.pol:=pit[o+1].pol;
       pit[o+1].fam:=pit[o].fam;
       pit[o+1].year:=pit[o].year;
       pit[o+1].arm:=pit[o].arm;
       pit[o+1].prop:=pit[o].prop;
       pit[o+1].pol:=pit[o].pol;
       pit[o]:=c;
       pit[o].fam:=c.fam;
       pit[o].year:=c.year;
       pit[o].arm:=c.arm;
       pit[o].prop:=c.prop;
       pit[o].pol:=c.pol;
      end;
    end;
  end;
end;


begin
 Assign(f,'D:\ZXY\input.txt');
 Reset(f);
 Assign(ff,'D:\ZXY\output3.txt');
 Rewrite(ff);

 For i:=1 to 10 do
  begin
   Readln(f,a[i].fam,a[i].year,a[i].arm,a[i].prop,a[i].pol);
   With a[i] do
   Writeln(ff,fam:15,year:5,arm:4,prop:2,pol:1);
  end;

close(f);


 kp:=0;

 For i:=1 to 10 do
  Begin
  If (a[i].prop='P ') and (a[i].arm='da  ') then
    begin
     kp:=kp+1;
     pit[kp].fam:=a[i].fam;
     pit[kp].year:=a[i].year;
     pit[kp].arm:=a[i].arm;
     pit[kp].prop:=a[i].prop;
     pit[kp].pol:=a[i].pol;
    end;
  end;
  ilt;
 writeln(ff);

 For i:=1 to kp do
  Begin
   with pit[i] do
   Writeln(ff,pit[i].fam,pit[i].year,pit[i].arm,pit[i].prop,pit[i].pol);

  end;

 close(ff);

end.