Дан массив состоящий из 10 элементов, найти среди них макс. и мин. ну надо

Дим а(10) (сам массив)
дим X(для максимального)
дим Y(для минимального)
фор b=1 то 10 (степ 1, если надо)
иф а(b)>X зен а(b)=X
некст b
фор с=1 то 10 (степ 1, если надо)
иф а(с)<Y зен а(с)=Y
некст с