Модули в Паскале

unit opisanie2;
Interface
 const
 polit=10;resp=200;kol_g=4;
 type
 mas_polit=array[1..polit] of string;
 mas_resp=array[1..resp,1..polit]of string;
 mas_pop=array[1..polit] of integer;
var
massiv_polit:mas_polit;
massiv_resp:mas_resp;
massiv_pop:mas_pop;
implementation
end.

unit obrabotka2;
interface
uses opisanie2;
procedure vvod1(var ma :mas_polit; m1 :integer);
procedure vivod1(var ma :mas_polit; m1 :integer);
procedure vvod2(var ma :mas_resp;var ma1:mas_polit; m1,n1 :integer);
procedure vivod2(var ma :mas_resp; m1,n1 :integer);
procedure zap_mas_pop(var ma :mas_pop; m1 :integer);
procedure kolichectvo_gol(var ma :mas_pop;var ma2:mas_resp; m1,n1 :integer);
procedure vivod3(var ma :mas_pop; m1:integer);
implementation
procedure vvod1(var ma :mas_polit; m1 :integer);
var i : integer;
begin
 for i:=1 to m1 do
      readln(ma[i]);
end;
procedure vivod1(var ma :mas_polit; m1:integer);
var i : integer;
begin
  for i:=1 to m1 do begin
         write(ma[i],' ');
                     end;
  writeln;
end;
procedure vvod2(var ma :mas_resp;var ma1:mas_polit; m1,n1 :integer);
label z;
var i,j,k : integer;
begin
 for i:=1 to n1 do
     for j:=1 to kol_g do
     begin
     repeat
     writeln('Введите голоса');
     readln(ma[i,j]);
     for k:=1 to m1 do
     until (ma[i,j]=ma1[k]);
     end;
end;
procedure vivod2(var ma :mas_resp; m1,n1 :integer);
var i,j : integer;
begin
  for i:=1 to n1 do begin
     for j:=1 to kol_g do
         write(ma[i,j],' ');
         writeln;
                     end;
end;
procedure zap_mas_pop(var ma :mas_pop; m1 :integer);
var i : integer;
begin
 for i:=1 to m1 do
        ma[i]:=0;
end;
procedure kolichectvo_gol(var ma :mas_pop;var ma2:mas_resp; m1,n1 :integer);
var i,j,k : integer; flag:boolean;
begin
 for i:=1 to n1 do
     for j:=1 to kol_g do begin
                k:=1;
                flag:=false;
                while (k<=m1) and (flag=false) do
                                  if ma2[i,j]<>k then k:=k+1
                                                     else flag:=true;
                if flag then ma[k]:=ma[k]+1;
                end;
 
end;
procedure vivod3(var ma :mas_pop; m1:integer);
var i : integer;
begin
  for i:=1 to m1 do begin
         write(ma[i],' ');
                     end;
end;
end.

uses
 opisanie2, obrabotka2;
var
 massiv_polit:mas_polit;
 massiv_resp:mas_resp;
 m2,n2,sum : integer;
 massiv_pop:mas_pop;
begin
 writeln('Введите количество политиков');
 readln(m2);
 writeln('Введите фамилии политиков:');
 vvod1(massiv_polit, m2);
 writeln('Политики:');
 vivod1(massiv_polit, m2);
 writeln('Введите количество респондентов');
 readln(n2);
 vvod2(massiv_resp,massiv_polit, m2,n2);
 writeln('Голоса респодентов:');
 vivod2(massiv_resp, m2,n2);
 zap_mas_pop(massiv_pop,m2);
 writeln;
 kolichectvo_gol(massiv_pop,massiv_resp, m2,n2);
 writeln('Количество голосов респондентов:');
 vivod3(massiv_pop, m2);
end.

writeln('Введите количество политиков');
............................................................
writeln('Введите количество респондентов');