Вопрос с оператором выбора Case

[Stratus]

Здравствуйте. Есть вопрос по написанию программы с оператором выбора.
Я только учусь, собственно, по какому-то учебнику и сам себе придумываю задачи после того или иного урока. Познакомился с оператором Case, но не все стало понятно.
Итак, суть программы в следующем: Сперва появляется запись-приветствие, потом представляется возможность выбора.
Еще вначале, в блоке описания программы, я сделал запись, что:
var a, ... ... ... : integer;
Итак, представляется выбор, который, по идее, и реализован должен быть оператором case. Делаю запись: case a of
1 : writeln('...');
read(b);
writeln('...');
... Целый ряд операторов...
2: writeln('...');
... Целый ряд операторов... И т.д.
Однако такой задум реализовать не получается. Уже в начале второго оператора(в моем случае - ввода readln) выскакивает ошибка: "Constant and Case types don't match".
Что делать?
Добавлять дополнительные begin... end; в разных местах пробовал, не особо помогает.
Понимаю, как реализовать такое через if - очень легко. Там после if... then ставится begin и всё идет, словно по маслу. Но хочется ведь разобраться, как такое делать с Case. Иначе зачем он тогда нужен?

[Пепел Феникса]

case a of 
 1:begin
     ... Целый ряд операторов... 
    end;
 2:begin
     ... Целый ряд операторов... 
    end;
end;

[Alex Cones]

Попробуй так:

Case a of
1:Begin
     Writeln('Hallo!');
     ReadLn(b);
   End;
2:Write('World!');
3:A:=6;
End;

Любую группу операторов можно объеденить в блок.
Begin..End;
Теперь эта группа будет считываться программой грубо говоря как один оператор. В Case можно также выставлять последовательность значений:

Case a of
1..4:A:=3;
5..8:B:=3;
End;

Теперь при вводе чисел от 1 до 4 переменной А будет задано значение "3", а при вводе от 5 до 8 переменной В.
И главное: не забывай, что при окончании записи вариантов нужно закрывать оператор Case при помощи команды "End;":

Case XXX of
P1:..
P2:..
P3..P5:..
 Else
  YYY
 End;

Чуть опоздал(

[Doholyan]

Все верно растолкованно!
Но можно добавить.
Так же можеш вот так:

Case a of
1:{Procedura 1};
2:{Procedura 2};
End;

[Небесный]

Сообщение от Doholyan

Все верно растолкованно!
Но можно добавить.
Так же можеш вот так:

Case a of
1:{Procedura 1};
2:{Procedura 2};
End;

Респект, кратко и ясно, хотел добавить, но добавить то уже нечего.

[Stratus]

Сообщение от Alex Cones

Попробуй так:

Case a of
1:Begin
     Writeln('Hallo!');
     ReadLn(b);
   End;
2:Write('World!');
3:A:=6;
End;

Любую группу операторов можно объеденить в блок.

Чуть опоздал(

Попробовал делать так. Всё равно что-то не выходит. Через процедуру получилось, как написали ниже, но интересно ведь понять источник ошибки в таком случае... Скомпилировало без всяких вопросов и проблем, ошибок нет. Однако программа при выполнении сворачивается сразу же, когда дело доходит до Case. Ввожу я, допустим, 1, как показано выше, и все. Свернулось. Нажимаю алт-ф5, чтобы посмотреть, в чем дело... Последняя запись так и остается "1". Ничего более. С типами нарушений, вроде нет. Я прописываю Case a of... для а определен тип у меня integer.

[puporev]

Попробовал делать так.

Так покажите свой код. Пробовать еще не значит сделать. Если бы у Вас ошибок не было, все бы работало.

[Stratus]

Сейчас...

program name;
uses crt;
var a: integer;
     H, R, S, V: real;
BEGIN
     clrscr;
     writeln('...');
     writeln('...');
     writeln('...');
   Case a of 
1: begin
    writeln('...');
    readln(R);
    write('... ');
    readln(H);
    V:=R*R*H*3.14;
    writeln('...', V:9:2);
end;
 2:begin
   writeln('...');
    readln(R);
    write('... ');
    readln(H);
    S:=2*3.14*R*H;
    writeln('...', S:9:2);
   end;
   END;
readln; {Для задержки }
End.

Вот такое

[puporev]

Case a of
А откуда программа возьмет значение а????

[Stratus]

Сообщение от puporev

Case a of
А откуда программа возьмет значение а????

ееееелки... Тьфу, стормозил. Главного не сделал.

Большое всем спасибо за помощь тут =)