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

const n=15; var a: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.