Program Parse24sof400 (input,output);
(*Prg reads std nw outfile and sums hits*)
 (*makes 24 non-overlapping sets of 400 genes each for all patients*)
Uses WinCRT;
var
l,n,j,k,g,F                                            :longint;
x,y                                                      :char;
ifil,ofil                                                :text;
namei,p,u                                                :string;
z                                                 :real;
nameii                                                   :string;
Begin
{  writeln('Enter the name of the input file');

  readln(namei);}

  namei:='1.txt';
  assign(ifil,namei);
  reset(ifil);

  n:=0;
  k:=0;
  l:=1;
  nameii:='ABCDEFGHIJKLMNOPQRSTUVWXY';
 for l:=1 to 24 do
   begin
       assign(ofil,nameii[l]);
       rewrite(ofil);

       while not eof(ifil) and not eoln(ifil) do
         begin
           for n:=1 to 24 do
             readln(ifil);
         readln(ifil,p,u);
         writeln(ofil,p,u);
         end;
     reset(ifil);
     for k:=1 to (l) do
       readln(ifil);
     close(ofil);

   end;



 close(ifil);
end.