В начало каждого модуля должен быть помещен комментарий, описывающий функции данного модуля

Const n=10;
Type mas=array[1..n] of 0..1;
Var A,B,C:mas;
    K:array[1..3] of byte;
    imax,i:byte;
Procedure Input(Var A:mas);{процедура заполнения массива случайными числами}
Var i:byte;
Begin
    For i:=1 to n do
     A[i]:=random(2);
End;
Procedure Output(A:mas;ch:char);{процедура вывода массива на экран}
Var i:byte;
Begin
    writeln('Массив ',ch);
    For i:=1 to n do
     write(A[i]:2);
    writeln;
End;
Function Kol(A:mas):byte;{процедура нахождения количества нулей в массиве}
Var i,k:byte;
Begin
    k:=0;
    For i:=1 to n do
     if A[i]=0 then inc(k);
    Kol:=k;
End;
Procedure Add(Var A:mas;B,C:mas);{логическая сумма}
Var i:byte;
Begin
    For i:=1 to n do
     A[i]:=ord((B[i]<>0) or (C[i]<>0));
End;
Begin
   Input(A);OutPut(A,'A');
   K[1]:=Kol(A);
   Input(B);OutPut(B,'B');
   K[2]:=Kol(B);
   Input(C);OutPut(C,'C');
   K[3]:=Kol(C);
   imax:=1;
   For i:=2 to 3 do
    if K[i]>K[imax] then imax:=i;
   Case imax of
    1:
    Begin
      writeln('Массив с max количеством нулей A там нулей = ',K[imax]);
      Add(A,B,C);
      OutPut(A,'A');
    End;
    2:
    Begin
      writeln('Массив с max количеством нулей B там нулей = ',K[imax]);
      Add(B,A,C);
      OutPut(B,'B');
    End;
    3:
    Begin
      writeln('Массив с max количеством нулей C там нулей = ',K[imax]);
      Add(C,A,B);
      OutPut(C,'C');
    End;
   End;
   readln;
End.