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,'rdgset53.19');
  rewrite(ofil);
   k:=0;
  b:=0;
  while not eof(ifil) do
  begin
   for ctr:=1 to 19 do
    begin
      readln(ifil,b);
      for scnum:=1 to (2*(b-1)) do
      readln(ifil2);
      for c:=1 to 53 do
        begin
          read(ifil2,sum);
          if sum<0 then
          write(ofil,' ',sum:6)
           else
            write(ofil,sum:6);
        end;
      reset(ifil2);
      writeln(ofil);
    end;

  end;(*WHILE*)


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