Задать массив из 5 случайных чисел. вывести на экран. найти min и max значение массива. вывести на экран (паскаль)

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

program MinMaxArray;

var
arr: array[1..5] of integer;
i, min, max: integer;

begin
Randomize;

for i := 1 to 5 do
begin
arr[i] := Random(100);
Write(arr[i], ' ');
end;

min := arr[1];
max := arr[1];

for i := 2 to 5 do
begin
if arr[i] < min then
min := arr[i];
if arr[i] > max then
max := arr[i];
end;

Writeln;
Writeln('Min value: ', min);
Writeln('Max value: ', max);
end.