Написать в Паскаль

Массив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от - 45 до 50. Вывести полученный массив на экран в строчку. Найти индекс наибольшего элемента массива.

Program massiv;

var mass = array [1 ... 15] of integer;

i, max, n_max: integer;

begin

{заполнение массива}

for i: = 1 to 15 do mass[i] = (random (32) - 15) * 3;

max : = 0;

n_max : = 0;

{нахождение максимума, вывод на экран}

for i: = 1 to 15 do

begin

if mass[i] > max then

begin

max : = mass[i];

n_max : = i;

end;

write (mass[i], ' ') ;

end;

writeln ('Индекс максимального: ', n_max) ;

end.