Программа показывает максимальное и минимальное значение 0 - Pascal ABC

program PR8;
 
const
  n = 5; m = 5;
 
type
  aType = array [1..5] of Integer;
 
var
  X: array [1..n] of integer;
  Y: array [1..m] of integer;
  i, j, max, min: integer;
  Z: real;
 
//function C(k, l : aType) : Real := k.max - l.min / 2;
begin
  Randomize;
  for var g := 1 to 5 do 
  begin
    x[g] := Random(10, 50);
    write(x[g]:4);
  end;
  WriteLn;
  for var g := 1 to 5 do 
  begin
    y[g] := Random(10, 50);
    write(y[g]:4);
  end;
  WriteLn;
  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.