Дан массив [10…90] сравнить количество 1 и 0 в числах — Pascal(Паскаль)

program pascal;
uses crt;
type 
        matrix = array [10..90] of integer ; 
var
        i,nol,adun:integer;
        matr:matrix;
procedure vvod;
begin
                randomize;
                        for i:=10 to 90 do 
                        matr[i]:=random(200)-100;
                        clrscr;
                        Writeln ('Матрица заполнена значениями от -100 до 100');
procedure adunol;
begin
nol:=0;
adun:=0;
 for i:=10 to 90 do
        begin
 while matr[i] div 10 > 0 do
                if matr[i] mod 10 = 0 then
                        nol:=nol+1
                        else
                                if matr[i] mod 10 = 1 
                                then
                                adun:=adun+1
                                end;
 Writeln ('Нулей ', nol);
Writeln('Одиниц ',adun);
 
 
end;
 begin
   clrscr;
Writeln;
vvod
adunol
Writeln('Нажмите любую кнопку')
end.

var
a:array[1..81] of integer;
i:integer;
kol_ed,kol_nul:integer;
begin
randomize;
for i:=1 to 81 do
 a[i]:=random(81)+10;
for i:=1 to 81 do
 write(a[i]:4);
kol_ed:=0;
kol_nul:=0;
for i:=1 to 81 do
 begin
   if (a[i] mod 10=1) or (a[i] div 10=1) then inc(kol_ed);
   if (a[i] mod 10=0) or (a[i] div 10=0) then inc(kol_nul);
 end;
writeln;
writeln('kol_ed=',kol_ed);
writeln('kol_nul=',kol_nul);
readln;
end.