Задан одномерный массив А(12). Составить программу, подсчитывающую количество нулей и единиц среди элементов этого массива. Значения элементов массива задайте самостоятельно, используя процедуру ввода данных с клавиатуры. Для ввода данных и обработки массива используйте оператор цикла FOR. Выведите на экран исходный массив и результаты расчета — Pascal(Паскаль)

uses crt;
const n=12;
type arr=array[1..n] of integer;
var a:arr;
    k,p:byte;
 
procedure vvod(var a:arr);
var i:byte;
begin
for i:=1 to n do
begin
 Write('a[',i,']->');
 Readln(a[i]);
end;
end;
 
procedure vivod(a:arr; var k,p:byte);
var i:byte;
begin
for i:=1 to n do
 Write(a[i]:4);
 for i:=1 to n do
 begin
  if a[i]=0 then
   inc(k);
  if a[i]=1 then
   inc(p);
 end;
end;
 
begin
ClrScr;
vvod(a);
Writeln;
vivod(a,k,p);
Writeln;
Writeln('Kol(1) ',p);
Writeln('Kol(0) ',k);
Readln;
end.