uses
  system;

var
  z: array of integer;
  temp: string;
  n, min: integer;

begin
  repeat
    Console.Write('Введите размер массива: ');
    temp := Console.ReadLine();
    if not TryStrToInt(temp, n) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToInt(temp, n);

  SetLength(z, n);
  Console.WriteLine('Исходный массива: ');
  for var i := 0 to z.GetLength(0) - 1 do
  begin
    z[i] := PABCsystem.Random(100);
    Console.Write(z[i] + #32);
  end;
  Console.WriteLine();

  min := Abs(z[0] - z[1]);
  for var i := 0 to z.GetLength(0) - 2 do
  begin
    var j := i;
    while j <= z.GetLength(0) - 2 do
    begin
      if min > Abs(z[i] - z[j]) then min := Abs(z[i] - z[j + 1]);
      j += 1;
    end;
  end;
  Console.WriteLine('Ответ: ' + min);
end.