Найти максимум и минимум в одномерном массиве

const
  size = 100;
  
begin
  Randomize;
  var x : array [1..size] of Integer;
  for var i := 1 to size do x[i] := Random(1, 99);
  for var i := 1 to size do print(x[i]); WriteLn;
  var minI := 1; var maxI := 1;
  for var i := 2 to size do
    if x[i] > x[maxI] then maxI := i
    else if x[i] < x[minI] then minI := i;
  WriteLnFormat('min = {0}  max = {1}', minI, maxI);
  if minI > 1 then swap(x[1], x[minI]);
  if (maxI > 2) then swap(x[2], x[maxI]);
  for var i := 1 to size do print(x[i]); WriteLn;
end.

uses arrays;
 
const 
  size = 100;
var 
  x : array of integer;
begin
  x := CreateRandomIntegerArray(size, 1, 99);
  writeln('До'); x.Writeln(#9);
  x[0] := x.Max(); x[1] := x.Min();
  writeln('После'); x.Writeln(#9);
end.