Программа не работает

[paskal_nygna_pomoщ]

program z1;

uses
  CRT;

label 1, 2;
var
  a, b, c, d, l, l2, l5, l4, l3: integer;

begin
  1: writeln('на сколько вы уверены в своих способностях(введите число от 10 до 100');
  read(A); if (A < 100) or (A > 10) then begin
    writeln('введите число от 0 до , a');
    b := random(a);
    readln(c);
    if a = c then d := +10;
    b := random(30);
    d := d + b;
    2: writeln('Вы пришли в незнакомый дом, иногда вам кажется что какая-то вещь стоит не на своем месте? 1-Да, чувствуется отсутствие у людей вкуса; 2-Где ее поставили, там у нее и место; 3-Раздражает когда какая-то несуразная вещь стоит на видном месте ');
    readln(a);
    if a = 1 then d := d + d - (b - 6) else if a = 2 then d := d + d - (b - 10) else if a = 3 then d := d + d - (b - 13) else begin writeln('EROR'); goto 2; end;
    b := random(24);
    d := d + b;
    b := random(2);
    l := random(4);
    l2 := random(1000);
    l3 := random(123);
    l4 := random(600); l5 := random(123);
    writeln('напишите случайное натуральное число');
    readln(c);
    case c of
      b, L, l1, l2,  l5: d := d + 20;
      b + 1, L - 1, l1 + 2, l2 + 113, l + 222, l4 - 3, l5 + 6: d := d + 15;
      b..l2, l3 - 1..l5: d := d + 10;
      l3: d := d + 2;
    else d := d + 1;
      if d < 40 then writeln('к сожалению в этот раз тест не выявил экстрасенсорных способностей') else if d < 69 then writeln('что ж слабые намёки на экстрасенсорику у вас есть, если долго будите их развивать то возможно сто выйдет') 
      else if d < 83 then writeln('у вас несомненно есть предрасположенность к подобного рода вещам, для овладения навыками экстрасенсорного восприятия вам достаточно просто прислушаться к себе и научиться пользоваться уже имеющимися у вас способностями.') else
      if d < 98 then writeln('у вас уже есть развитые способности - научитесь их правильно проверять') 
      else 
      begin
        wtite('EROR'); 
        goto 1; 
      end;
    end;
  end;
end.

строка(32) : Ожидалось константное выражение как быть
from Stilet: Неудивительно... Неоформленная спецтегом по кнопке # программа как может работать?

[rubius2008]

В операторе выбора (case) в диапазонах значений (слева от ":") нельзя видимо использовать переменные, нужно указывать конкретные (цифры) значения которые может принимать селектор (с). Попробуйте воспользоваться другими конструкциями языка (условный оператор, множества)

[paskal_nygna_pomoщ]

использовал условный - и ещё пару ошибок исправил http://spaces.ru/files//?name=CkBope...d=13856841;p=1 - вот первая версия проги