Помогите пожалуйста!
Найти номера первого из двух последних элементов массива из 30 элементов произведение которых максимально.

Program C21; uses Crt;const n = 30;var a : array[1..n] of integer; k, i, max : integer;beginfor i := 1 to n do beginwrite('vvedite ',i,' - iy element massiva - ');readln(a[i]);end;k := 1;max := a[1] * a[2];for i := 2 to n-1 do beginif (a[i] * a[i + 1]) > max then beginmax := a[i] * a[i + 1];k := i;end;end;writeln(k);end.