Помогите решить задачу, кажется сделал правильно но в некоторых случаях при заполнение массива выводит неправильный номер

В массиве определить номер максимального элемента

program f281;
var a:array[1..5] of integer;
max,n,i:integer;
begin
for i:=1 to 5 do begin
read (a[i]);end;
max:=a[1];n:=1;
for i:=2 to 5 do begin		
if a[i]>max then max:=a[i];n:=i;
end;
writeln(n);
end.

Тегами не забываем пользоваться...

if a[i]>max then BEGIN max:=a[i];n:=i; END

Это - формально. Фактически же этого не нужно, можно просто делать так:

maxn := 1;
for i := 2 to 5 do
begin	
  if a[i] > a[maxn] then maxn := i;
end;

спасибо за ответ