Определить номер судна с наименьшим процентом перевыполнения плана

выполнение месячного плана по перевозкам грузов 10-ю судами задано массивом а1,а2...а10
номер судна 1 2 3 4 5 6 7 8 9 10
план % 102 100 97 110 99 103 101 95 108 105

min=1
FOR i=1 TO 10
  IF a(i) > 100 AND a(i) < a(min) THEN
    min = i
  END IF
NEXT i
PRINT i

автор: Дени_Славович