Вопрос Где ошибка в программе???

[Жека123]

program ideone;
var a:array[1..n] of integer;
begin
for i:=1 to n do read(a;
max:=1;
for i:=1 to n do
begin
if a>max then max:=a;
i:=i+1;
end;
write(max)
end.