Ругаются массивы Опции

[AlaRic]

Вот собственно код:

program dip;
uses crt;
const n=2;
label one,two;
var i,k,qu,z:integer;
a:array[1..n] of string;
b,c,d:array[1..n] of string;
g:array[1..n] of integer;
c:char;
procedure quest;
begin
writeln('Vvedite 10 voprosov i 3 onveta k nim.');
writeln('Zatem vvedite nomera pravilnix otvetov.');
for i:=1 to n do
begin
writeln(i,' vopros:'); readln(a[i]);
writeln('Otveti cherez probel: ');
read(b[i]);read(c[i]);read(d[i]);
end;
writeln('Teper nomera pravilnix otvetov:');
for i:=1 to n do
begin
writeln(i,' otvet: '); readln(g[i]);
end;
z:=z+1;
repeat until keypressed;
end;
BEGIN
z:=0;
qu:=0;
gotoxy(30,11);writeln('1. testirovat');
gotoxy(30,13);writeln('2. voprosi');
gotoxy(30,15);writeln('3. exit');
c:=readkey;
case c of
#49:goto one;
#50:quest;
#51:halt;
end;
one:
clrscr;
writeln('Nachinaem testirovanie.');
for i:=1 to n do
begin
k:=0;
writeln(i,' vopros: ',a[i]);
writeln('1.',b[i],' 2.',c[i],' 3.',d[i]);
writeln('Vvedite pravilnii otvet: '); readln(k);
if k=g[i] then inc(qu);
end;
if qu>7 then writeln('5!');
if qu=7 or qu=6 then writeln('4');
if qu=5 or qu=4 then writeln('3');
if qu<4 then writeln('2!');
repeat until keypressed;
END.

Ругается на массив C. Не пойму почему, если не трудно подскажите.

Сообщение отредактировано: AlaRic - 20.05.2005 0:57