Паскаль Выведите на экран номер минимального элемента

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

program FindMinIndex;
var
arr: array[1..10] of integer;
minVal, minIndex, i: integer;
begin
// Заполнение массива случайными числами
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(100); // генерация чисел от 0 до 99
Write(arr[i], ' ');
end;
WriteLn;

// Нахождение минимального элемента и его индекса
minVal := arr[1];
minIndex := 1;
for i := 2 to 10 do
begin
if arr[i] < minVal then
begin
minVal := arr[i];
minIndex := i;
end;
end;
WriteLn('Минимальный элемент: ', minVal);
WriteLn('Индекс минимального элемента: ', minIndex);

end.