imax:=1

for i:=2 to 10 do

if a [i]>a [imax] then imax:=i;

write ('Наибольший элемнт a[', imax, ' ]=', a[imax])

самостоятельно запишите программу, в которой осуществляется формирование целочисленного массива a из 10 элементов значения которых лежат в диапозоне от 0 до 99,и поиск наибольшего элемента этого массива.