Поменять первый наибольший элемент массива с последним наименьшим - Pascal ABC

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

дан массив n=10 целых чисел.элементы массива вводятся с клавиатуры. поменяйте первый наибольший элемент с последним наименьшим.

Решение задачи: «Поменять первый наибольший элемент массива с последним наименьшим»

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

var
a:array[1..10]of integer;
nomerMax,nomerMin,i,t:integer;
begin
nomerMax:=1;
nomerMin:=1;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>a[nomerMax] then nomerMax:=i;
if a[i]<=a[nomerMin] then nomerMin:=i;
end;
t:=a[nomerMin];
a[nomerMin]:=a[nomerMax];
a[nomerMax]:=t;
for i:=1 to 10 do
write(a[i],' ');
end.

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

Объявляются переменные: массив a, числа nomerMax, nomerMin, i, t.
Инициализируются переменные nomerMax и nomerMin значением 1.
Происходит цикл по элементам массива a с помощью for i:=1 to 10 do.
В каждой итерации цикла считывается значение элемента массива a[i] с помощью read(a[i]).
Если значение a[i] больше значения a[nomerMax], то обновляется значение nomerMax.
Если значение a[i] меньше или равно значению a[nomerMin], то обновляется значение nomerMin.
После цикла находятся индексы первого наибольшего элемента (nomerMax) и последнего наименьшего элемента (nomerMin).
Значение a[nomerMin] меняется на значение a[nomerMax].
Значение a[nomerMax] меняется на значение t.
Происходит цикл по элементам массива a с помощью for i:=1 to 10 do write(a[i],' ').
Результат выводится на экран.