Проблема с программой для вывода четных и не четных чисел

Не могу найти проблему в данной программе:
var a,b,c:integer;
i:array[1..100] of integer;
begin
read(a,b,c);
repeat
for i:=1 to 100 do
begin
if n mod 2=0 then
write(n[i],'число четное')
else
write(n[i],'число нечетное');
end;
until
write(b[i],' ', a[i]);
end.
При копиляции программы выдает такое:
"Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла"