Задать массив размерности 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.