Вычислить Z, которая равняется

Program zadacha;
uses crt;
type k=array[1..20] of integer;
var x,y: k; i: integer; z: real; min,index: integer;
{- - - - - Процедура* - - - - - - }
Procedure Pr(m: k; n: integer; var min: integer; index: integer);
 begin
    min:=m[1];
    for i:=1 to n do
      if m[i]<min then
        begin
          min:=m[i];
          index:=i;
        end;
  end;
{- - - - - - - - - - - - - - - - }
 begin
   clrscr; randomize;
   writeln('Первый массив');
   for i:=1 to 10 do
   x[i]:=random(10)-5;
   for i:=1 to 10 do
   write(x[i],' ');
   Pr(x, 10, min, index);
   writeln;
   writeln('Минимальный элемент=',min);
   writeln('индекс',index);
   writeln;
      writeln('Второй массив');
      for i:=1 to 12 do
      y[i]:=random(10)-5;
      for i:=1 to 12 do
      write(y[i],' ');
      Pr(y, 12, min, index);
      writeln;
      writeln('Минимальный элемент=',min);
      writeln('индекс',index);
      writeln;
readkey
end.

uses crt;
type mas=array[1..12] of integer;
procedure Vvod(var v:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
v[i]:=random(50)-25;
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]:4);
writeln;
end;
procedure Min(v:mas;x:byte;var imn:byte;var mn:integer);
var i:byte;
begin
mn:=v[1];
imn:=1;
for i:=1 to x do
if v[i]<mn then
 begin
  mn:=v[i];
  imn:=i;
 end;
end;
function Z(a,b:integer;c,d:byte):real;
begin
Z:=(a+b)/(2*c*d);
end;
 
var x,y:mas;
    mnx,mny:integer;
    imnx,imny:byte;
begin
clrscr;
randomize;
Vvod(x,10);
Vvod(y,12);
Vyvod(x,10,'X:');
Min(x,10,imnx,mnx);
writeln('Минимум=',mnx,'  индекс=',imnx);
Vyvod(y,12,'Y:');
Min(y,12,imny,mny);
writeln('Минимум=',mny,'  индекс=',imny);
write('Z=',Z(mnx,mny,imnx,imny):0:2);
readln
end.