uses System.Math;

var
  MinValue, MaxValue, MaxOfList: Integer;
begin
  MinValue := Min(Min(2, 1), 3);
  //MinValue is 1

  MaxValue := Max(Max(2, 1), 3);
  //MaxValue is 3

  //for a list of values
  MaxOfList := MaxIntValue([2, 1, 3]);
  //MaxOfList is 3

  WriteLn('minValue is ', MinValue);
  WriteLn('maxValue is ', MaxValue);
  WriteLn('maxOfList is ', MaxOfList);
end.