Pascal/Turbo Pascal - ¿Q falla en este codigo?AYuda :(

Hola, estoy empezando a programar y se me ocurrió hacer una tontería, una especie de test, pero me da un error que no entiendo, me dice lo siguiente: (37,4): SYntax error, ";"expected but "." found. Compilation aborted.

EL codigo es el siguiente:

program test;

var
a,b: char;

Begin
writeln('¿Pregunta numero uno?');
writeln('1: opcion 1');
writeln('2: opcion2');
writeln('3: opcion 3');
writeln('4: opcion 4');
read(a);
begin
case a of
'1': writeln('La respuesta es correcta');
'2': writeln('No has acertado!!!');
'3': writeln('No has acertado!!!');
'4': writeln('No has acertado!!!');
end;
writeln('¿Ppregunta numero dos?');
writeln('1: opcion 1');
writeln('2: opcion 2');
writeln('3: opcion 3');
writeln('4: opcion 4');
read(b);
begin
case b of
'1': writeln('Has fallado!!!');
'2': writeln('Has fallado!!!');
'3': writeln('OK, has acertado.');
'4': writeln('Has fallado!!!');
end;
end.


MUchas gracias de antemano por la ayuda!

Tienes dos begins que no están cerrados, los que están justo antes de las sentencias case. De hecho, esos dos begins son irrelevantes. El case necesita un end pero no requiere begin.