Из двух одномерных массивов вывести на печать тот, в котором больше отрицательных элементов

The mas = Array [1..100] of integer;
Var A, B: mas; K, N1, N2: integer;
Procedure WW (x:mas; N: integer)
(здесь должна быть какая то процедура как я поняла)
 
 
procedure Kol (??? здесь тоже что то должно быть)
(и опять же какая то процедура)
 
begin
readln (N1,N2);
WW(A,N1);
WW(B,N2);
Kol (A,N1,K1);
Kol (B, N2,K2);
 
if K1>K2 then
writeln(?? вывести что то (см условие).
 
 
 
...
end.

uses crt;
Type mas = Array [1..100] of integer;
Procedure Vvod (var x:mas; N: integer);
var i:integer;
begin
for i:=1 to N do
x[i]:=-10+random(21);
end;
Procedure Vyvod (x:mas; N: integer;c:char);
var i:integer;
begin
writeln('Массив ',c);
for i:=1 to N do
write(x[i]:4);
writeln
end;
function Kotr(x:mas;N:integer):integer;
var i:integer;
begin
result:=0;
for i:=1 to N do
if x[i]<0 then inc(result)
end;
 
Var A, B: mas;
    K1, K2:integer;
begin
Vvod(a,10);
Vyvod(a,10,'A');
K1:=Kotr(a,10);
writeln('Количество отрицатедьных=',K1);
Vvod(b,15);
Vyvod(b,15,'B');
K2:=Kotr(b,15);
writeln('Количество отрицательных=',K2);
if K1>K2 then Vyvod(a,10,'A')
else if K1<K2 then Vyvod(b,15,'B')
else write('Количество отрицательных в массивах одинаково')
end.