Напишите программу на языке Паскаль

дан массив а(30) заполненный датчиком случайных чисел из интервала 5 20 найдите максимальный элемент массива

a(30):=x

if x>max then

Begin

x:=max

End;