Валенок, всё гениальное просто)


MinI := 1;

FOR incr := 1 TO 3 DO
IF MhArr[incr] < MhArr[MinI] THEN
MinI := incr;
END_IF
END_FOR

И что мне было так заморачиваться...