uses   crt,dos;
type slova=record
     sl:string[25];
     end;
var f:text;
f1:file of slova;
   i,j:longint;
   x,x1:slova;
begin

  assign(f1,'d:\curse\data_for_program.dat');
  reset(f1);


  for i:=1 to filesize(f1)-1  do
   for j:= filesize(f1)-1 downto i do
       begin
      
       seek(f1,j-1);
       read(f1,x);
       seek(f1,j);
       read(f1,x1);
        if length(x.sl)>length(x1.sl) then
         begin
          seek(f1,j-1);
          write(f1,x1);
          write(f1,x);
         end;


        end;

   close(f1);


 end.