Слияние двух файлов по сериям

procedure file_merge_A_B (S;string);
var a1,a2,i,s,j: integer;
    z,x,ss: boolean;
begin
   reset(A);                                    /// s серия
   reset(B);
   rewrite(C);
   rewrite(D);
   read(A,a1);
   Read(B,a2);   z:=true;
   While (not EOF(A)) and (not EOF(B)) do
    begin
     if z then
           begin
            x:=true;
            i:=1; j:=1;
            While (not EOF(A) and not EOF(B)) and x do
             begin
              If (a1<a2) then
                          begin
                           Write(C,a1);
                           Read(A,a1);
                           inc(i);
                          End
                         else
                          begin
                           Write(C,a2);
                           Read(B,a2);
                           inc(j);
                          End;
              If (i=s) or (j=s) then x:=false;
             End;
            If not x then
                       begin
                     ss:=true;
                     while (i<Size)and ss do
                      begin
                      if not eof(A) then
                                     begin
                                       Write(C,a1);
                                       Read(A,a1);
                                       inc(i);
                                     end
                                    else
                                     ss:=false;
                      end;
                    ss:=true;
                     while (j<Size)and ss do
                      begin
                      if not eof(B) then
                                     begin
                                       Write(C,a1);
                                       Read(B,a1);
                                       inc(j);
                                     end
                                    else
                                     ss:=false;
                      end;
                   end;
         if (i=size) and (j=size) then z:=false;
       end
  else
   begin
   i:=1; j:=1;
     x:=true;
         While (not EOF(A)) and (not EOF(B))and (x) do
                       begin
                         If (a1<a2) then
                           begin
                             Write(D,a1);
                             Read(A,a1);
                             inc(i);
                           End
 
                         else
                           begin
                             Write(D,a2);
                             Read(B,a2);
                             inc(j);
                           End;
                         If (i=s) or (j=s) then x:=false;
                       End;
                        If not x then
                       begin
                     ss:=true;
                     while (i<Size)and ss do
                      if not eof(A) then
                                     begin
                                       Write(D,a1);
                                       Read(A,a1);
                                       inc(i);
                                     end
                                    else
                                     ss:=false;
                    ss:=true;
                     while (j<Size)and ss do
                      if not eof(B) then
                                     begin
                                       Write(D,a1);
                                       Read(B,a1);
                                       inc(i);
                                     end
                                    else
                                     ss:=false;
                       End;
     if (i=size) and (j=size) then z:=true;
   end;
 
     end; Close(A);Close(B);CloseFile(C);CloseFile(D);
  Erase(A);
  Erase(B);
  rewrite(A);  closeFile(A);
  rewrite(B);  CloseFile(B);
 
end;