Как исправить ошибку

program Test1;
uses crt;
label 10,11,12;
var a,b,c,t,PR,NE:byte;
begin
 PR:=0;
 NE:=0;
 writeln('Тест по информатике');
 11:writeln('Выберете вариант: ');
 writeln('1- вариант, 2- вариант');
 readln(a);
 clrscr;
 case a of
 1:begin
 b:=0;
 10:inc(b);
 case b of
 1:begin
 writeln('1. Язык программирования Pascal создал:');
 writeln;
 writeln('1. Н. Вирт;');
 writeln('2. Б. Паскаль');
 writeln('3. М. Фортран');
 writeln('4. Правильных ответов нет');
 readln(c);
 t:=1;
 end;
 2:begin 
 writeln('2. Оператор присваивания имеет вид:');
 writeln;
 writeln('1. =');
 writeln('2. :=');
 writeln('3. =:');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=2; 
 end;
 3:begin
 writeln('3. раздел VAR служит');
 writeln;
 writeln('1. Для описания используемых переменных');
 writeln('2. Для описания величин');
 writeln('3. Для описания выражений');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=1;
 end;
 4:begin
 writeln('4. Переменные – это:');
 writeln;
 writeln('1. величины, которые могут менять свое значение в процессе выполнения программы');
 writeln('2. величины, которые не могут менять своего значения в процессе выполнения программы');
 writeln('3. величины, которые не могут менять своего значения в процессе выполнения программы');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=1; 
 end;
 5:begin
 writeln('5. тип переменных REAL это:');
 writeln;
 writeln('1. целочисленный тип');
 writeln('2. логический тип');
 writeln('3. натуральный тип');
 writeln('4. верного ответа нет');
 readln(c);
 t:=4;
 end; 
 6:begin
 writeln('6. вывод данных на экран осуществляется с помощью оператора:');
 writeln;
 writeln('1. WRITE, WRITELN');
 writeln('2. READ, READLN');
 writeln('3. PROGRAM');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=1;
 end;
 7:begin
 writeln('7. Какая из переменных может не является целой ?');
 writeln;
 writeln('1. a:=2');
 writeln('2. b:=4 div 7');
 writeln('3. c:=-25');
 writeln('4. d:=d / 6');
 readln(c);
 t:=4;
 end; 
 8:begin
 writeln('8. Выделите верные утверждения. Чем отличаются команды Write(a); и Writeln(a)?');
 writeln;
 writeln('1. после выполнения Write(a) курсор не переводится на начало новой строки');
 writeln('2. после выполнения Writeln(a) курсор  не переводится на начало новой строки');
 writeln('3. Нет правильного');
 writeln('4. после выполнения Write(a) курсор переводится на начало новой строки');
 readln(c);
 t:=1;
 end;
 9:begin
 writeln('9. Каким служебным словом описывается строка символов переменные:');
 writeln;
 writeln('1. INTEGER');
 writeln('2. REAL');
 writeln('3. STRING');
 writeln('4. CHAR');
 readln(c);
 t:=3;
 end; 
 10:begin
 writeln('10. Чем заканчивается программа?');
 writeln;
 writeln('1. END');
 writeln('2. Program');
 writeln('3. Readln');
 writeln('4. Конец');
 readln(c);
 t:=1;
 end;
 end;
 if c=t then inc(pr)
 else 
 inc(ne); 
 clrscr;
 if b<10 then goto 10;
 end;
 2:begin
 b:=0;
 12:inc(b);
 case b of
 1:begin
 writeln('1. Линейная структура построения программы подразумевает');
 writeln;
 writeln('1. Неоднократное повторение отдельных частей программы');
 writeln('2. Последовательное выполнение всех элементов программы');
 writeln('3. Выполнение лишь нескольких, удовлетворяющих заданному условию частей программы');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=2;
 end;
 2:begin
 writeln('2. Команда CLRSCR служит для');
 writeln;
 writeln('1. ожидания нажатия клавиши');
 writeln('2. ввода данных с экрана');
 writeln('3. очистки экрана');
 writeln('4. верного ответа нет');
 readln(c);
 t:=3;
 end;
 3:begin
 writeln('3. целочисленное деление можно выразить следующей функцией:');
 writeln;
 writeln('1. A mod B');
 writeln('2. A div B');
 writeln('3. Abs (A)*B');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=1;
 end;
 4:begin
 writeln('4. раздел операторов начинается служебным словом:');
 writeln;
 writeln('1. VAR');
 writeln('2. INTEGER');
 writeln('3. BEGIN');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=3;
 end;
 5:begin
 writeln('5. ввод данных с клавиатуры осуществляется с помощью оператора:');
 writeln;
 writeln('1. WRITE, WRITELN');
 writeln('2. READ, READLN');
 writeln('3. PROGRAM');
 writeln('4. Верного ответа нет');
 readln(c);
 t:=2;
 end;
 6:begin
 writeln('6. Операция Div позволяет найти...');
 writeln;
 writeln('1. Нет правильного');
 writeln('2. остаток от целочисленного деления');
 writeln('3. найти результат целочисленного деления одного числа на другое');
 writeln('4. результат деления одного числа на другое');
 readln(c);
 t:=3;
 end;
 7:begin
 writeln('7. Какое значение получит переменная a после выполнения серии команд a:=5; b:=2; a:=b * a - SQR(a);');
 writeln;
 writeln('1. -15');
 writeln('2. 15');
 writeln('3. 40');
 writeln('4. 10');
 readln(c);
 t:=1;
 end; 
 8:begin
 writeln('8. Переменная а является целой. В какой строке при использовании команды присвоить значение допущена ошибка ?');
 writeln;
 writeln('1. a:=SQRT(a);');
 writeln('2. a:=sqr(5);');
 writeln('3. a:=a / 5-1;');
 writeln('4. a:=abs(2*a);');
 readln(c);
 t:=3;
 end;
 9:begin
 writeln('9. Что означает в Паскале точка с запятой');
 writeln;
 writeln('1. Конец цикла;');
 writeln('2. Конец строки программы;');
 writeln('3. Отделяет операторы друг от друга;');
 writeln('4. Конец программы;');
 readln(c);
 t:=3;
 end; 
 10:begin
 writeln('10. Каким служебным словом описываются дробные переменные:');
 writeln;
 writeln('1. INTEGER');
 writeln('2. REAL');
 writeln('3. CHAR');
 writeln('4. STRING');
 readln(c);
 t:=2;
 end;
 end;
 if c=t then inc(pr)
 else 
 inc(ne); 
 clrscr;
 if b<10 then goto 10;
 end;
 else
 begin
 writeln('Ошибка ввода. Попробуйте еще раз');
 readln;
 clrscr;
 goto 11;
 end
 end;
 clrscr;
 writeln('Вы ответили правильно на ',PR, ' и на ',NE,' не правильно ');
 writeln('У вас ',100/(PR+NE)*PR,'%');
 write('И получили оценку: ');
 case 20*pr of
 0..50:write('2');
 51..79:write('3');
 80..94:write('4');
 95..100:write('5');
 end;
 writeln;
end.