Помогите написать программу на массив Qbasic Создать массив,хранящий результаты соревнований 8 спортсменов по бегу на коньках.Определить,лучший результат,худший результат и среднее время пробега дистанции.

A(I) - массив
L - лучший рез-т
H - худший рез-т
S - средний рез-т
О - общая сумма рез-тов
CLS
DIM A(8)
FOR I=1 TO 8 STEP 1
INPUT A(I);
NEXT (I)
L = A(1)
H = A(1)
О=0
FOR I=1 TO 8 STEP 1
IF LIF H>A(I) THEN H=A(I)
О=O+A(I)
NEXT (I)
S=O/8
останется только вывод полученных результатов