Выдает ошибку «Операция< не применима к типам function”

program Summa; 
var X: array[1..100] of integer; 
sum, i: integer; 
 
procedure H; 
var X: array[1..100] of integer; 
max,min,i: integer; 
begin
 max:=1; 
 min:=1; 
 for i:=1 to 100 do
 begin
 if X[i]>X[max] then
 max:=i; 
 if X[i]<X[min] then
 min:=i;
 end;
 end; 
 
begin
 sum:=0; 
 randomize; 
 for i:=1 to 100 do
 begin
 X[i]:=random(100);
 end; 
 begin
 H
 end; 
 if (min< max) then        Вот в этой строчке
 for i:=min to max do
 sum := sum+X[i] 
 else
 for i:=max to min do
 sum:=sum+X[i]; 
 writeln('сумма=',sum);
end.

program Summa; 
var X: array[1..100] of integer; 
    mn,mx,sum: integer; 
procedure H; 
begin
mx:=1; 
mn:=1; 
for var i:=1 to 100 do
 begin
  if X[i]>X[mx] then mx:=i
  else if X[i]<X[mn] then mn:=i;
 end;
 end; 
 
begin
sum:=0; 
randomize; 
for var i:=1 to 100 do
 begin
  X[i]:=random(100);
  write(X[i]:4)
 end; 
 H;
 if mn<mx then  
  begin      // Вот в этой строчке
   for var i:=mn to mx do
   sum := sum+X[i];
  end 
 else
  begin 
   for var i:=mx to mn do
   sum:=sum+X[i]; 
  end;
 writeln; 
 writeln('сумма=',sum);
end.