Определить у какого вектора наибольшее количество положительных элементов / максимальный элемент встречается чаще

type vec=array[1..100] of integer;
procedure vector(var a:vec;var n:integer;s:char);
var i:integer;
begin
repeat
write('Введите размер вектора ',s,' от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Вектор ',s);
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
end;
procedure polz(a:vec;n:integer;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]>0 then inc(k) ;
writeln('Количество положительных=',k);
end;
procedure max(a:vec;n:integer;var m,k:integer);
var i:integer;
begin
for i:=1 to n do
if i=1 then
 begin
  m:=a[1];
  k:=1;
 end
else if a[i]=m then inc(k)
else if a[i]>m then
 begin
  m:=a[i];
  k:=1;
 end;
writeln('Максимальный элемент=',m,' их количество=',k);
end;
var a,b:vec;
    na,nb,mxa,kpa,kma,mxb,kpb,kmb:integer;
begin
vector(a,na,'A');
polz(a,na,kpa);
max(a,na,mxa,kma);
vector(b,nb,'B');
polz(b,nb,kpb);
max(b,nb,mxb,kmb);
if kpa>kpb then writeln('В векторе А больше положительных')
else if kpa<kpb then writeln('В векторе B больше положительных')
else writeln('Количество положительных в обоих векторах одинаковое');
if kma>kmb then writeln('В векторе А больше максимальных')
else if kma<kmb then writeln('В векторе B больше максимальных')
else writeln('Количество максимальных в обоих векторах одинаковое');
end.