Что не так? Параметр цикла for должен описываться в заголовке

var a: array of integer;

i, n:integer;

begin

readln (n) ;

for i:=0 to n do

begin

if a[i]=0 then writeln ('easy')

else writeln ('hard') ;

end;

end.

то что параметр цикла не в заголовке это не ошибка, но настоятельная рекомендация, а ошибка у вас в том, что вы не выделили память под динамический массив, a:=new integer[n] (или SetLength (a, n)). И, поскольку индексация элементов в динамических массивах начинается с 0, то в цикле For верхняя граница параметра i должна быть на 1 меньше n, то есть For i:=0 to n-1.