Program GenOutPut (input,output);
(* to read trna file and collect trna's of same spacing to new file*)

Uses WinCRT;
var
l,n,j,k,g,F,i,cter,m                              :longint;
x,y                                             :char;
ifil,ofil,ifil2                                 :text;
namei,nameii                                    :string;
z                                               :real;
seq                                             :string[96];
Begin
  writeln('Enter the name of the input file of genes to delete');
  readln(namei);
  assign(ifil,namei);
  reset(ifil);
  writeln('Enter the name of the input file of total genes');
  readln(namei);
  assign(ifil2,namei);
  reset(ifil2);
  assign(ofil,'redgset.217');
  rewrite(ofil);
  n:=0;
  k:=0;
  l:=1;
  F:=0;
  m:=0;
   for i:=1 to 217 do
    begin
     if i<>1 then k:=n;
     readln(ifil,n);
     if i=217 then l:=n;
     if i<>1 then
       m:=n-k
         else
          m:=n;
     for cter:=1 to (m-1) do
       begin
         readln(ifil2,namei,nameii);
         writeln(ofil,namei,' ',nameii);
       end;
       readln(ifil2);
    end;

   for i:=1 to (9984-l) do
      begin
         readln(ifil2,namei,nameii);
         writeln(ofil,namei,' ',nameii);
       end;


 close(ifil2);
 close(ifil);
 close(ofil);
end.