Неправильно находит максимальное значение элемента массива! - Pascal ABC

Формулировка задачи:

Неправильно находит максимальное значение элемента массива! Вроде программу сделал правильно, но неправильно находит максимальное значение элемента массива. Условие было таковым: Найти количество элементов массива, которые больше разности максимального и минимального значений элементов массива...

program massiv_3;
var a: array [1..10] of integer;
i:integer;//переменная цикла
k:integer;//количество элементов массива, которые больше разницы максимального и минимального значений элементов массива
min:integer;//минимальное значение элемента массива
max:integer;// максимальное значение элемента массива
d:integer;// разность максимального и минимального значений элементов массива
begin
randomize;
for i:= 1 to 10 do a[i]:= random(30)-10;
for i:= 1 to 10 do write(a[i],' ');
min:=a[1];
max:=a[1];
for i:= 2 to 10 do
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
d:=0;
for i:= 1 to 10 do
d:= max-min;
k:=0;
for i:= 1 to 10 do
if a[i]>d then k:=k+1;
writeln;
writeln;
writeln('минимальное значение элемента массива ',min);
writeln('максимальное значение элемента массива ',max);
writeln('разность максимального и минимального значений элементов массива ',d);
writeln('количество элементов массива, которые больше разницы максимального и минимального значений элементов массива ',k);
end.

Решение задачи: «Неправильно находит максимальное значение элемента массива!»

Листинг программы

min:=a[1];
max:=a[1];
for i:= 2 to 10 do
if a[i]<min then min:=a[i]
else if a[i]>max then max:=a[i];

Объяснение кода листинга программы

min и max - это две переменные, которые инициализируются значением первого элемента массива a.
Затем происходит цикл от второго до десятого элемента массива.
Внутри цикла проверяется, является ли текущий элемент меньше значения переменной min. Если это так, то значение переменной min обновляется.
Если текущий элемент больше значения переменной max, то значение переменной max обновляется.
По завершении цикла, в переменной max будет содержаться максимальное значение элемента массива.