Z=Xmax-Ymin/2,Xmax

[KulOle]

Вычислить Z=Xmax-Ymin/2,Xmax - максимальный элемент массива X(50); Ymin - минимальный элемент массива Y(40). Xmax и Ymin вычислять в однородной подпрограмме при помощи процедуры.

[Whiplash]

Если все правильно понял, то как-то так

Var X: array[1..50] of Integer;
Y: array[1..40] of Integer;
XMax, YMin: Real;
Z: Real;
i: Integer;

Procedure Sort(N: Integer);
Begin
YMin:=Random(100);
for i:=1 to N do
begin
if X[i] > XMax then
XMax:=X[i];
if N = 40 then
if Y[i] < YMin then
YMin:=Y[i];
end;
end;

Begin
Randomize; (*Запуск встроенного генератора случайных чисел*)
for i:=1 to 50 do
X[i]:=Random(100); (*Формируем массив X случайным образом*)
for i:=1 to 40 do
Y[i]:=Random(100);
Sort(50);
Sort(40);
Z:=XMax - YMin / 2;
End.