Что не так? Параметр цикла 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.

Предыдущий
вопрос Следующий
вопрос

Параметр цикла for должен начинаться с 1, а не с 0. Также необходимо инициализировать массив "a" перед использованием.

Исправленный код будет выглядеть примерно так:

var
a: array of integer;
i, n: integer;
begin
readln(n);
SetLength(a, n); // инициализация массива
for i := 0 to n - 1 do
begin
if a[i] = 0 then
writeln('easy')
else
writeln ('hard');
end;
end.