Дан массив размера N. Поменять местами его минимальный и максимальный элементы. (На языке Паскаль)

Предыдущий
вопрос Следующий
вопрос

var
arr: array of Integer;
i, minIndex, maxIndex, temp: Integer;
N: Integer;

begin
Write('Введите размер массива: ');
Readln(N);

SetLength(arr, N);

// Ввод элементов массива
for i := 0 to N - 1 do
begin
Write('Введите элемент массива ', i, ': ');
Readln(arr[i]);
end;

// Находим индекс минимального элемента
minIndex := 0;
for i := 1 to N - 1 do
begin
if arr[i] < arr[minIndex] then
minIndex := i;
end;

// Находим индекс максимального элемента
maxIndex := 0;
for i := 1 to N - 1 do
begin
if arr[i] > arr[maxIndex] then
maxIndex := i;
end;

// Меняем местами минимальный и максимальный элементы
temp := arr[minIndex];
arr[minIndex] := arr[maxIndex];
arr[maxIndex] := temp;

// Выводим измененный массив
Writeln('Измененный массив:');
for i := 0 to N - 1 do
Write(arr[i], ' ');

end.