Помогите исправить

[Andrey7284]

Вот задача:
составить программу определения макс и мин числа в массиве состоящем из 20 чисел. Вычислить разность между макс и мин значением и заменить ею четные элементы массива

А программа не работает

Программа:

const 
  ArraySize = 20; 
var 
  A : array of Integer; 
begin 
  Randomize; 
  Write('Массив:'); 
  A := New Integer[ArraySize]; 
  for var n : Integer := 0 to Pred(ArraySize) do 
    begin 
      A[n] := Random(19) - 9; 
      Write(A[n]:3); 
    end; 
  WriteLn; 
  var Delta : Integer := A.Max() - A.Min(); 
  WriteLn('Разность между максимальным и минимальным элементами = ', Delta); 
  Write('Новый массив:'); 
  for var n : Integer := 0 to Pred(ArraySize) do 
    begin 
      if Not Odd(A[n]) then 
        A[n] := Delta; 
      Write(A[n]:3); 
    end; 
  WriteLn; 
end.

Работа программы:

Массив: -8 9 -6 8 1 -8 6 -8 1 6 4 5 6 -5 -8 -9 4 6 -5 8
Разность между максимальным и минимальным элементами = 18
Новый массив: 18 9 18 18 1 18 18 18 1 18 18 5 18 -5 18 -9 18 18 -5 18

Работа программы:

Массив: -3 3 7 5 0 4 4 1 6 -1 4 -2 -9 -6 4 3 -7 3 8 -9
Разность между максимальным и минимальным элементами = 17
Новый массив: -3 3 7 5 17 17 17 1 17 -1 17 17 -9 17 17 3 -7 3 17 -9