Нахождение максимального и минимального значения в массиве на Паскаль

Лучшим применением цикла с параметром, можно назвать задачи по обработке данных, хранящихся в массиве. К одной из таких задач можно отнести задачу на поиск максимального (минимального) элемента в массиве.
Напишем программу на Язык программирования Паскаль, которая будет решать подобную задачу.
Суть её состоит в том, что мы будем брать все элементы по очереди и сравнивать с промежуточным значением, которое является временным максимальным числом. Если последующая ячейка будет больше первой, то мы просто меняем значение максимального числа на новое.
Сперва нам нужно ввести все значения в массив с клавиатуры, чтобы знать, что будет храниться в массиве.
for i:=1 to 5 do
begin
write(Введите , i, число в массив: );
read(r2d2[i]);
end;
Затем будет блок, в котором будет происходить отбор максимального элемента.
for i:=1 to 5 do
begin
if (i=1) then maxim:=r2d2[1]
else
if (maxim<r2d2[i]) then maxim:=r2d2[i];
end;
А вот и сам код всей программы:
Program maximalnoe;
Var
i,maxim:integer;
r2d2: array[1..5] of integer;
Begin
for i:=1 to 5 do
begin
write(Введите , i, число в массив: );
read(r2d2[i]);
end;
for i:=1 to 5 do
begin
if (i=1) then maxim:=r2d2[1]
else
if (maxim<r2d2[i]) then maxim:=r2d2[i];
end;
write(Наибольшее число в массиве=,maxim);
End.
Одномерный массив произвольного размера, заполненный случайными значениями Задача на Паскаль. «Лесенка» чисел