Найти наибольшие элементы и их порядковые номера массивов Х(10) и Y(7)

{функция нахождения индекса максимального элемента массива}
function ind_max(var z: array of integer): integer;
var i, m: integer;
begin
  m := 0;
  for i := 1 to high(z) do if z[i] > z[m] then m := i;
  ind_max := m + 1
end;
 
{роцедура заполнения массива случайными значениями и печати массива}
procedure fill_prn(var z: array of integer; n: char);
var i: integer;
begin
  writeln('Array ', n, ':');
  for i := 0 to high(z) do
    begin
      z[i] := -99 + random(199);
      write(z[i]:4)
    end;
  writeln
end;
 
{процедура действий с массивом по заданию}
procedure operate(var z: array of integer; n: char; var m: integer);
begin
  fill_prn(z, n);
  m := ind_max(z);
  writeln('Max element is ', n, '[', m, '] = ', z[m - 1]);
  writeln
end;
 
{основная пограмма}
var x: array [1..10] of integer;
    y: array [1..7] of integer;
    mx, my: integer;
begin
  randomize;
  operate(x, 'X', mx);
  operate(y, 'Y', my);
  readln
end.