Процедуры, Найти Z. Опции

[Desktop II]

Дана задача:
Найти z=(xmax-ymin)/2, где xmax - максимальное число массива A[1..5];
ymin - минимальный елемент масива B[1..5];

Что то не выходить.

program pr12_1;
const n=5;
  type
  mas=array[1..n] of integer;
    var
     mas_a,mas_b:mas;
      z,y:integer;
     procedure masv(const m1,m2:mas; var k1,k2:integer);
     var
     i,xmax:integer;
     ymin:integer;
        Begin
        xmax:=m1[i];
        for i:=1 to n do
        if m1[i]>xmax then
        xmax:=m1[i];
        ymin:=m2[i];
        for i:=1 to n do
        if m2[i]>ymin then
        ymin:=m2[i];
        end;
   begin
   writeln('Vvedite elem masiva Mas_A');
   for y:=1 to n do
     begin
     write('Vvesti element N',y);
     readln(mas_a[y]);
     end;
   writeln('Vvedite elem masiva Mas_B');
   for y:=1 to n do
     begin
     write('Vvesti element N',y);
     readln(mas_b[y]);
     end;
     masv(mas_a,y);
     masv(mas_b,y);
   z:=(xmax-ymin)/2;
   writeln('Z = 'z);
   readln;
   end.

Укажите где я допустил ошибку. В строке masv(mas_a,y); пишет "Тип неверный", что надо исправить.