Вычислить процент четных элементов в массивах А, В, С. Определить максимальный из них

const m = 16;
 
function even_p(var x: array of integer; n: integer): real;
var i, k: integer;
    p: real;
begin
  k := 0;
  for i := 0 to n - 1 do if not(odd(x[i])) then inc(k);
  p := k * 100 / n;
  writeln('Percent of even elements: ', p:10:6, ' %');
  writeln;
  even_p := p
end;
 
procedure fill(var x: array of integer; var n: integer; c: char);
var i: integer;
begin
  writeln('Array ', c, ':');
  n := 5 + random(m - 4);
  for i := 0 to n - 1 do
    begin
      x[i] := random(100);
      write(x[i]:3)
    end;
  writeln
end;
 
var i, na, nb, nc: integer;
    a, b, c: array [1..m] of integer;
    pa, pb, pc, max: real;
    s: char;
begin
  randomize;
  fill(a, na, 'A');
  pa := even_p(a, na);
  fill(b, nb, 'B');
  pb := even_p(b, nb);
  fill(c, nc, 'C');
  pc := even_p(c, nc);
  max := pa;
  s := 'A';
  if pb > max
    then begin
      max := pb;
      s := 'B'
    end;
  if pc > max
    then begin
      max := pc;
      s := 'C'
    end;
  writeln;
  write('Max percent of even elements: ', max:10:6, ' % in array ', s);
  readln
end.