Вычислить процент четных элементов в массивах А, В, С. Определить максимальный из них — 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,' до ',nmax,' =');
readln(x);
until x in [1..nmax];
writeln('Введите ',x,' элементов массива ',c);
for i:=1 to x do
 begin
  write('el[',i,']=');
  readln(v[i]);
 end;
clrscr;
end;
procedure Vyvod(var v:mas;x:byte;c:string);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to x do
write(v[i],' ');
writeln;
writeln;
end;
function Proc(v:mas;x:byte):real;
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if v[i] mod 2=0 then k:=k+1;
Proc:=k*100/x;
end;
var a,b,c:mas;
    na,nb,nc,t,i:byte;
begin
clrscr;
repeat
writeln('Сколькo тестов провести, не менее 2 t=');
readln(t);
until t>1;
for i:=1 to t do
 begin
  writeln('Тест ',i);
  Vvod(a,na,'A');
  Vyvod(a,na,'A');
  writeln('Процент четных=',Proc(a,na):0:0,' %');
  Vvod(b,nb,'B');
  Vyvod(b,nb,'B');
  writeln('Процент четных=',Proc(b,nb):0:0,' %');
  Vvod(c,nc,'C');
  Vyvod(c,nc,'C');
  writeln('Процент четных=',Proc(c,nc):0:0,' %');
 end;
readln
end.