С помощью одной процедуры найти наибольшие элементы и их порядковые номера в массивах

uses crt;
type Arr = array[1..100]of integer;
var x,y:arr;
nx, ny, i, m: integer;
 
procedure max(m:arr; n:integer; var max_i:integer);
var i:integer;
begin
 max_i:=1;
 for i:=1 to n do if m[i]>m[max_i] then max_i:=i;
end;
 
begin
 clrscr;
 write('Введите размерность массива X -> ');
 readln(nx);
 write('Введите массив -> ');
 for i:=1 to nx do read(x[i]);
 readln;
 write('Введите размерность массива Y -> ');
 readln(ny);
 write('Введите массив -> ');
 for i:=1 to ny do read(y[i]);
 readln;
 max(x,nx,m);
 writeln('Маскимум в X - X[',m,'] = ',x[m]);
 max(y,ny,m);
 writeln('Маскимум в Y - Y[',m,'] = ',y[m]);
 readln;
end.

procedure Max(a,b:Tmatr; m,t:integer);
var i,j:integer;
     maxa,maxb:integer;
 maxa:=a[1];
 for i:=1 to n do
 if a[i]>maxa then begin maxa:=a[i];
                                  m:=i;
                           end;
maxb:=b[1];
 for j:=1 to n do
if b[i]>maxb then begin b[j]:=maxb;
                                   t:=j;
                end;
end;