Нужна по информатике! в ! создайте массив из 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.