Очень нужна помощь по информатике! В Паскале!!!

Создайте массив из 15 целочисленных элементов и определите среди них максимальное значение. Заполните случайным образом.

constn=15;vara:array[1..n]of integer;i,max:integer;    begin        for i:=1 to n do            begin                 a[i]:=random(100)-50;                 write(a[i]:4);            end;max:=a[1];for i:=2 to n do    if a[i]>max then        max:=a[i];writeln;writeln(max);end.