Поиск максимального в массиве

var
  n, x, mn, mx: integer;
 
begin
  readln(n);
  //Нечетный максимум
  mx := LongInt.MinValue;
  //Четный минимум
  mn := LongInt.MaxValue;
  for var i := 1 to n do
  begin
    read(x);
    if odd(i) AND (x > mx) then mx := x
    else if not odd(i) AND (x < mn) then mn := x;
  end;
  if n = 1 then
    writeln(x)
  else
    writeln(mx - mn);
end.

begin
  var WM:= ArrRandom(ReadInteger('Введите длину массива: '),-10,10).Println('; ');
  Writeln(WM.Where((x,i) -> Odd(i+1)).Max - WM.Where((x,i) -> not Odd(i+1)).Min);
end.

uses System.linq;
var
  n:integer;
  wm:array of integer;
begin
  write('введите элементы массива через пробел:');
  wm:=ReadString().Split(new string[1](' '),System.StringSplitOptions.RemoveEmptyEntries).Select((c:string)->strtoint(c)).toArray();
  writeln('Элементы с нечетными индексами:');  
  var b:=wm.Where((x:integer,idx:integer)->odd(idx+1)).ToArray();
  writeln(System.string.Join(' ',b),' max=',b.Max());
  writeln('Элементы с четными индексами:');  
  var c:=wm.Where((x:integer,idx:integer)->odd(idx)).ToArray();  
  writeln(System.string.Join(' ',c),' min=',c.Min());
  writeln('Max-Min=',b.Max()-c.Min());
end.