ПОМОГИТЕ ПОЖАЛУЙСТА ДО ЗАВТРА ОЧЕНЬ Надобно!!!!!!!!!!!!!

Input n                                              -вводим количества деревьев
dim Tree(n) as integer
for i=1 to n
    Tree(i)=int(rnd()*1000)   -заполняем массив
next

max=Tree(1)
for i=2 to n
  if Tree(i)gt;max then max=Tree(i)   -проверка частей массива

next

Print max          -выводим наивысшую

--------------------------