Помогите решить в паскале.Оценки, полученные спортсменом в соревнованиях по фигурному катанию (в баллах) хранятся в массиве из 18 элементов. В первых 6 -ти элементах записаны оценки по обязательной программе, с 7-го элемента по 12-ый записаны оценки по короткой программе, в остальных по произвольной программе. Выяснить, по какому виду программы спортсмен показал лучший результат. это одномерный массив

{Pascal ABC.NET}

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

s1,s2,s3:string;

i,max1,max2,max3:integer;

begin

max1:=0;

max2:=0;

max3:=0;

s1:='Обязательная:';

s2:='Короткая:';

s3:='Произвольная:';

for i:=1 to 18 do

readln(a[i]);

for i:=1 to 18 do

begin

if (i<=6) and (a[i]>max1) then max1:=a[i];

if (i>6) and (i<=12) and (a[i]>max2) then max2:=a[i];

if (i>12) and (a[i]>max3) then max3:=a[i];