Даны целочисленные массивы S и T с разным количеством элементов. Каждый из массивов содержит несколько нулевых элементов. Найти в каком из массивов количество нулевых элементов больше. Ввод массивов выполнять в процедуре, а вычисление количества нулевых элементов – в функции — Pascal(Паскаль)

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var v:mas;var x:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,'=');
readln(x);
until x in [1..nmax];
writeln('Массив ',c);
for i:=1 to x do
 begin
  v[i]:=random(5);
  write(v[i],' ');
 end;
writeln;
end;
function Zero(v:mas;x:byte):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if v[i]=0 then k:=k+1;
Zero:=k;
end;
var a,b:mas;
    na,nb,za,zb:byte;
begin
clrscr;
Vvod(a,na,'A');
za:=Zero(a,na);
writeln('Количество нолей=',za);
writeln;
Vvod(b,nb,'B');
zb:=Zero(b,nb);
writeln('Количество нолей=',zb);
writeln;
if za>zb then write('В масиве А нолей больше')
else if za<zb then write('В масиве B нолей больше')
else write('В обоих массивах нолей поровну');
readln
end.