Var
 f,f1:Text;
 a1,a2,i:Integer;
Begin
 Randomize;
 Assign(f,'D:\xxx.txt');
 Rewrite(f);
 for i:=1 to 100 do
  begin
   a1:=-20+Random(40);
   write(f,a1:4);
  end;
 Close(f);
 Reset(f);
 Assign(f1,'D:\yyy.txt');
 Rewrite(f1);
 Read(f,a1);
 for i:=2 to 100 do
  begin
   read(f,a2);
   if a2>a1 then write(f1,a2:4);
   a1:=a2;
  end;
 Close(f);
 Close(f1);
End.