- 27 -
                                        Приложение 1

     Procedure Chtenf1;
     (* Чтение записей файла f1 *)
     begin
         if not eof(f1) then
             begin
             read(f1,z1);
             kl1:=z1.kl1;
             kolzap1:=kolzap1+1;
             . . .
             end
         else
             begin
             konf1:=true;
             kl1:=maxint;
             close(f1)
             . . .
             end
     end; (* Chtenf1 *)
.
                            - 28 -
     
                                        Приложение 2

     Procedure SO2F;
     (* Совместная обработка двух файлов *)
     begin
         reset(f1);
         konf1:=false;
         kolzap1:=0;
         reset(F2);
         konf2:=false;
         kolzap2:=0;
         chtenf1;
         chtenf2;
         if konf1 and konf2 then
             writeln('*** ФАЙЛЫ ПУСТЫ ***')
         else
            begin
            repeat
    (* Обработка базового ключа *)
                if kl1>kl2 then
                    begin (* Ввод вновь *)
                    bkl:=kl2;
                    VVN;
                    chtenf2
                    end
                else
                    begin
                    bkl:=kl1;
                    if kl1<kl2 then
                        begin (* Аннулировано *)
                        ANN
                        end
                    else
                        begin (* Равно *)
                        RAVNO;
                        chtenf2
                        end;
                    chtenf1;
                    end;
            until konf1 and konf2;
            . . .
            end;
     end; (* SO2F *)