Тест на Pascal....

На теории я понял, а на практике порядок действий не очень понятен)))

Вот... .
Но я не могу понять как исправить ошибку???? (((((

var t:array[1..9]of 0..1;
i,c,an:integer;

begin
c:=0;
t[1]:=1;
t[2]:=0;
t[3]:=0;
t[4]:=1;
t[5]:=0;
t[6]:=1;
t[7]:=0;
t[8]:=1;
t[9]:=0;
//0 для нет, 1 для да
for i:=1 to 9 do
begin
case i of
1:writeln('Всегда ли Вы делаете немедленно то, о чем Вас просили? ');
2:writeln('Случается ли, что рассердившись, Вы "выходите из себя"?');
3:writeln('Смеетесь ли Вы иногда над двусмысленными неприличными шутками? ');
4:writeln('Полностью ли Вы свободны от всяких предрассудков? ');
5:writeln('Любите ли Вы иногда прихвастнуть? ');
6:writeln('Всегда ли Вы отвечаете на письма сразу после прочтения? ');
7:writeln('Откладываете ли Вы иногда на завтра то, что можно сделать сегодня? ');
8:writeln('Оплатите ли Вы проезд в автобусе, если будите знать, что проверки билетов не будет? ');
9:writeln('Считаете ли Вы, что лучше больше выигрывать, чем больше проигрывать? ');
end;
write('-> ');
readln(an);
if an=t then inc(c);
end;

writeln('Результаты тестирования');
case c of
0:writeln('ВЫ ЧЕСТНЫЙ ЧЕЛОВЕК. ПРОДОЛЖАЙТЕ В ТОМ ЖЕ ДУХЕ');
1..4:writeln('ВЫ ОБМАНЫВАЕТЕ РЕДКО');
5..8:writeln('ТРУДНО ВЕРИТЬ ВАШИМ СЛОВАМ. ВЫ РЕДКО ГОВОРИТЕ ПРАВДУ');
9:writeln('ВЫ НЕИСПРАВИМЫЙ ЛЖЕЦ. ВАС НУЖНО ИЗОЛИРОВАТЬ ОТ ОБЩЕСТВА');
end;
readln;
end.