ошибка в паскале

[T_U_S_U_A]

в массиве найти произведение элементов, следующих за максимальным.
или покажите мою ошибку

Program n2;
Uses Crt;
Var a:array[1..10] of integer;
i,j,max,s,n,k,p:integer;
begin
Clrscr;
writeln('Введите размерность матрицы n: ');
write('n= ');
readln(n);
writeln('Введите элементы матрицы:');
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if a[i]>max then
max:=a[i];
k:=i;
end;
p:=1;
for i:=k+1 to n do begin
p:=p*a[i];
end;
writeln('произведение эл после max: ',p);
writeln('max: ',max);
write('Для выхода нажмите Enter');
readln;
end.

[Mad_Cat]

max:=a[1];k:=1;
for i:=1 to n do 
if a[i]>max then begin
max:=a[i];
k:=i;
end;
p:=1;
for i:=k+1 to n do begin
p:=p*a[i];
end;
writeln('произведение эл после max: ',p);
writeln('max: ',max);
write('Для выхода нажмите Enter');
readln;
end.

[T_U_S_U_A]

спасибо заработало