Наименьшая разность

var n, n1, n2, d, dm, i: integer;
begin
  repeat
    write('n > 1; n = ');
    readln(n)
  until n > 1;
  writeln('Enter ', n, ' numbers:');
  dm := 0;
  for i := 1 to n do
    begin
      write(i, '? ');
      readln(n2);
      if i = 1 then n1 := n2;
      d := abs(n1 - n2);
      if d > dm then dm := d;
      n1 := n2
    end;
  write('Max difference: ', dm);
  readln
end.

begin
  var A := ReadArrInteger(ReadlnInteger('N:')).Pairwise().Select(x -> x[0] - x[1]);
  WritelnFormat('Наименьшая разность равна {0}, в то время как наибольшая {1}.', A.Min(), A.Max());
end.

begin
  var A := ReadArrInteger(ReadlnInteger('N:')).Pairwise().Select(x -> Abs(x[0] - x[1]));
  WritelnFormat('Наименьшая разность по модулю равна {0}, в то время как наибольшая по модулю {1}.', A.Min(), A.Max());
end.

begin
  var A := ReadArrInteger(ReadlnInteger('N:')).Pairwise().Select(x -> Abs(x[0] - x[1]));
  WritelnFormat('Наименьшая разность равна {0}, в то время как наибольшая {1}.', A.Min(), A.Max());
end.

begin
  var A := ReadArrInteger(ReadlnInteger('N:'));
  var Min := integer.MaxValue;
  var Max := 0;
  
  for var i := 0 to A.Length - 2 do
  begin
    var d := Abs(A[i] - A[i + 1]);
    if d < Min then Min := d;
    if d > Max then Max := d;
  end;
  
  WritelnFormat('Наименьшая разность равна {0}, в то время как наибольшая {1}.', Min, Max);
end.

  if A.Length > 1 then
    WritelnFormat('Наименьшая разность равна {0}, в то время как наибольшая {1}.', Min, Max)
  else
    Writeln('Невозможно найти разности: в массиве присутствует лишь один элемент.');

 var v := A.Incremental((a, b) -> Abs(a - b)).ToArray.Println;
  if A.Length > 1 then
    WritelnFormat('Наименьшая разность равна {0}, в то время как наибольшая {1}.', v.Min, v.Max)
  else 
    Writeln('Массив из одного элемента');