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

CLS
PRINT “ Исходный массив: “
DATA  7, 11,  -8,  9,  -15,  3,, -1,  12,  4,  10
DIM A(10)
    P = P(1)
FOR I = 1 TO 10
    READ A(i)
     PRINT A(i);
IF P > A(i) THEN P = A(i):  nP = i
 NEXT i
       PRINT
PRINT “ Min  эл-т массива:  “; P
PRINT “ Его индекс: “; nP
      ЗКШТЕ
REM …Блок поиска мах положит. эл-та
    X = X(1)
FOR I = 1 TO 10
IF A(i) > 0 AND  X > A(i) THEN X = A(i)
 NEXT i
PRINT “  Мин. Положит. эл-т массива: “; X

Исходный массив:
7   11   -8   9   -15   3   -1   12   4   10
Min  эл-т массива:  - 15
Его индекс:   5
 Min положит. эл-т массива:  “;  0

DATA  7, 11,  -8,  9,  -15,  3, -1,  12,  4,  10
CONST n = 10
DIM a(10)
FOR i = 1 TO n
  READ a(i)
  PRINT a(i);
NEXT
PRINT
p = 1
FOR i = 2 TO n
  IF a(p) > a(i) THEN p = i
NEXT
PRINT "Минимальный "; a(p); " в позиции "; p
p = 1
WHILE (p <= n) AND (a(p) <= 0)
  p = p + 1
WEND
FOR i = p + 1 TO n
  IF a(i) > 0 AND a(p) > a(i) THEN p = i
NEXT
IF p <= n THEN
  PRINT "Минимальный положительный "; a(p); " в позиции "; p 
ELSE
  PRINT "Нет положительных"
END IF