Задать массив размерности 25 случайным образом от -10 до 9.Поменять местами первый минимальный и последний максимальный элементы массива.Вывести первоначальный массив и получившийся массив. Помогите решить в паскале

const n = 25; var a: array[1..n] of integer; i, num, num1, min, max: integer; begin min := 10; max := 0; for i := 1 to n do begin a[i] := random(20) - 10; write(a[i], ' '); if(a[i] < min) and (min = 10) then begin min := a[i]; num := i; end; if(a[i] > max) then begin max := a[i]; num1 := i; end; end; a[num] := max; a[num1] := min; writeln; for i := 1 to n do write(a[i], ' '); end.