Problema Turbo pascal

[[duilioisola]]

Código Delphi [-]
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 ]