Program ChipDAT (input,output);
(*Prg reads genmat and fig1.txt to produce subset of genes in genmate *)

var
ans,k,b,c,scnum,ctr                          :longint;
ifil,ofil,ifil2                              :text;
namei                                        :string;
class                                        :string[9];
d,e,f,g,h,i,j,sum,frac,a                     :real;
answ                                         :char;


Begin
  writeln('Enter the filename of selected genes ');
  readln(namei);
  assign(ifil,namei);
  reset(ifil);
  writeln('Enter the filename of total genes');
  readln(namei);
  assign(ifil2,namei);
  reset(ifil2);

  assign(ofil,'redgset.120');
  rewrite(ofil);
   k:=0;
  b:=0;
  while not eof(ifil) do
  begin
   for ctr:=1 to 120 do
    begin
      readln(ifil,b);
      for scnum:=1 to (2*b-2) do
      readln(ifil2);
      for c:=1 to 96 do
        begin
          read(ifil2,sum);
          write(ofil,sum,' ');
        end;
      reset(ifil2);
      writeln(ofil);
      writeln(ofil);
    end;

  end;(*WHILE*)


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