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

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. Не пойму почему, если не трудно подскажите.

Повторяющиеся индификаторы:

b,c,d: :array[1..n] of string;
...
c : char;

Как же тут не ругаться?

Alaric, у тебя идентификатор C - два раза используется, поэтому и ругается

Да, и еще:

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!');

Скобки не забывай, в Паскале обязательно...

А впредь советую не давать такии примитивные названия переменным. Я, если так делаю, уже через месяц не могу прочитать свой же код. Поэтому давай переменным значимые индификаторы... ;)

Ой-ой точно...я уже 5 часов за компом - туплю по-страшному. Спасибо!

read(b[i]);read(c[i]);read(d[i]);

на readln...

p.s.