Problema Turbo pascal

[DANIELOVICH]

Hola y antes que nada gracias por leer esta pregunta. Miren estoy utilizando el turbo pascal 5.5 y miren les explico que se necesita que ejecute el programa
utilizar caracteres a,b,c como opciones en un menú
a) repetición de un nombre (previamente preguntado al usuario)
b) calcular el área de un pentágono (así es perímetro (lado*5) y apotema
c) salida
sé que esta medio confuso pero miren si ven como lo hice espero lo entiendan
el programa corre por ejemplo en la repetición hasta cuando pregunta el numero de veces a repetir ahí se traba por favor ayúdenme a que funcione
el área del pentágono nada mas pregunta el perímetro y el apotema pero no realiza la multiplicación ni la división
la salida si se realiza con C pero no escribe lo que le puse que escribiera
aquí mi programa:
program options;
uses
crt;
var
n, lado, apo, per, x, sus, d, e, f:integer;
a, opc, t, l: char;
nom:string[20];
area, stop:real;
begin
repeat
clrscr;
writeln('bienvenido a la maquina de opciones');
writeln('selecciona una opcion');
writeln('a-imprime n veces un numero');
writeln('b-evalúa el área de un pentágono');
writeln('c-exit')
read(opc);
if opc='a' then
begin
writeln('dame el numero de veces a repetir');
read(sus);
writeln('dame tu nombre');
readln(nom);
repeat
x:=1;
x:=x+1;
writeln('tu nombre es' ,nom, 'bienvenido');
until x:=sus;
readln(stop);
end;
if opc='b' then
begin
writeln('dame la medida de los lados del pentágono');
read(lado);
writeln('dame el apotema');
read(apo);
per:=lado*5
area:=(per*apo)/2;
writeln('el área del pentagono es' ,area, 'gracias por usar el sistema');
end;
until opc='c'
writeln('Daniel Software Inc. 2008');
end.
aquí me marca error en statement y me apunta al end. y si lo intento poner con ; me marca de nuevo el error


el rojo no sirve y el verde si me saca pero no escribe lo que le pido que escriba por favoor ayudenme

[duilioisola]

program options;
uses
crt;
var
n, lado, apo, per, x, sus, d, e, f:integer;
a, opc, t, l: char;
nom:string[20];
area, stop:real;
begin
repeat
clrscr;
writeln('bienvenido a la maquina de opciones');
writeln('selecciona una opcion');
writeln('a-imprime n veces un numero');
writeln('b-evalúa el área de un pentágono');
writeln('c-exit')
read(opc);
if opc='a' then
begin
writeln('dame el numero de veces a repetir');
read(sus);
writeln('dame tu nombre');
readln(nom);
repeat
x:=1;
x:=x+1;
writeln('tu nombre es' ,nom, 'bienvenido');
until x:=sus;
readln(stop);
end;
if opc='b' then
begin
writeln('dame la medida de los lados del pentágono');
read(lado);
writeln('dame el apotema');
read(apo);
per:=lado*5
area:=(per*apo)/2;
writeln('el área del pentagono es' ,area, 'gracias por usar el sistema');
end;
until opc='c'; { **** Falta un ; aqui ****}
writeln('Daniel Software Inc. 2008');
end.
Creo que te falta un ;


Nota: Trata de poner tu código entre las etiguetas [ DELPHI ] y [ / DELPHI ]