Процедура. Найти максимальный и минимальный элементы среди всех массивов

procedure Min_Max(arr: TArr; n: integer);
var
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   if arr[i] > arr[max] then max:=i
    else if arr[i] < arr[min] then min:=i;
 writeln('Минимальный: ', arr[min], '; Его номер: ', min);
 writeln('Максимальный: ', arr[max], '; Его номер: ', max);
end;

type
    TArr= array[1..100]of integer;
    
procedure Min_Max(arr: TArr; n: integer);
var
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   if arr[i] > arr[max] then max:=i
    else if arr[i] < arr[min] then min:=i;
 writeln('Минимальный: ', arr[min], '; Его номер: ', min);
 writeln('Максимальный: ', arr[max], '; Его номер: ', max);
end;
 
procedure read_(arr: TArr; n: integer);
var
    i: integer;
begin
    for i:=1 to N do
    begin
        arr[i]:=random(N);
    end;
end;
var
    x,y,z:TArr;
    Nx,Ny,Nz:byte;
    i:byte;
begin
    repeat
        writeln('Введите длину 1-ого,2-ого и 3-его массива:');
        readln(Nx,Ny,Nz);
    until(Nx or Ny or Nz)<100;
    
    read_(x,Nx);
    read_(y,Ny);
    read_(z,Nz);
    Min_Max(x,Nx);
    Min_Max(y,Ny);
    Min_Max(z,Nz);
end.