Нужно найти значение Z - PascalABC.NET

Формулировка задачи:

Cоставить программу для поиска Z=Xmax-ymin/2,где Xmax-максимальный элемент масива X [1..5], Ymin - минимальный элемент масива Y [1..5]. Но поставлено условие, что бы в программе использовалась подпрограмма которая выполнила бы данное действие. Подправьте, пожалуйста,мою программу

program PR8;
const n=5; m=5;
var
X:array [1..n] of integer;
y:array [1..m] of integer;
i,j,max,min:integer;
Z:real;
BEGIN
 
randomize;
 
for i:=1 to n do
begin
x[i]:=random (50);
write (x[i], ' ');
end;
 
for j:=1 to m do
begin
y[j]:=random (50);
write (y[j], ' ');
end;
 
max:=x[1];
for i:=1 to n do
if x[i]>max
then max:=x[i];
 
writeln;
write ('Максимальний елемент масива X:', max);
 
min:=y[1];
for j:=1 to m do
if y[j]<min
then min:=y[j];
 
writeln;
write ('Мінімальний елемент масива Y:', min);
writeln();
Z:=(max-min)/2;
write('Z=',Z);
end.

Решение задачи: «Нужно найти значение Z»

Листинг программы

type aType = array [1..5] of Integer;
 
function Z(X, Y : aType) : Real := X.Max - Y.Min / 2;
 
begin
  Randomize;
  
  var X : aType;
  for var i := 1 to 5 do X[i] := Random(10, 50);
  WriteLn('X = ', X);
 
  var Y : aType;
  for var i := 1 to 5 do Y[i] := Random(10, 50);
  WriteLn('Y = ', Y);
  
  WriteLn('Z = Xmax - Ymin / 2 = ', Z(X, Y));
end.

Объяснение кода листинга программы

Объявляется тип данных aType, который представляет собой массив из 5 целых чисел.
Определяется функция Z, которая принимает два аргумента типа aType и возвращает вещественное число.
В функции Z инициализируется генератор случайных чисел с помощью Randomize.
Создаются две переменные X и Y типа aType.
В цикле заполняются оба массива случайными числами от 10 до 50.
Выводится массив X с помощью WriteLn('X = ', X).
Выводится массив Y с помощью WriteLn('Y = ', Y).
Вычисляется значение функции Z и выводится на экран с помощью WriteLn('Z = Xmax - Ymin / 2 = ', Z(X, Y)).
Код завершается.