Прошу помогите решить на Паскале полную программу!

Массив из 15 элементов заполнен случайными числами из диапазона (-20; 20). Найти максимальный элемент и его номер, вывести на экран элементы массива с нечетными номерами

Const n=10;

var a:array[1 ... n] of integer;

max, imax, i:integer;

begin

Randomize;

for i:=1 to n do begin

a[i]:=random (39) - 19;

write (a[i],' ') ;

end;

writeln;

max:=a[1]; imax:=1;

for i:=2 to n do

if a[i]>max then begin max:=a[i]; imax:=i; end;

writeln ('max = ', max,' imax = ', imax) ;

writeln ('Элементы массива с нечетными номерами:') ;

for i:=1 to n do

if i mod 2 = 1 then write (a[i],' ') ;

writeln;

end.

Пример:

-5 18 - 16 - 7 19 - 15 2 8 - 15 - 6

max = 19 imax = 5

Элементы массива с нечетными номерами:

-5 - 16 19 2 - 15