Pascal/Turbo Pascal - ayuda

ayuda no le puedo encontrar los demas errores nesesito marcarlos.
alguien que me pueda ayudar porfavor.

Program laboratorio; //Primer error falta el signo de puntuacion (;)
Uses Crt;
const n1=20; n2=25; n3=20; n4=10; lado1=10; lado2=5; base=12; altura=10; radio=5; distancia=4; tiempo=10; radio2=3;
pi=3.1416; a=3; b=6; c=4; a2=3; b2=6; a3=5; b3=40; c3=5; d3=-5; a4=5; b4=40; c4=5; d4=2;
a5=5; b5=5; c5=5; d5=18; e5=2; a6=2; b6=5; c6=2; d6=3; e6=6;


menu,smenu1,smenu2,smenu3,smenu4,r,suma,resta,multi,divi,area.velocidad,resultado,op,volumen2,lado,lado3,lado4,lado5,op1,op2,num1,num2,num,i:Integer;
longitud,areac,volumen,resultado2,a1,b1,c1,radioc,alturac,arista,horas,minutos,segundos,x,op3,metro,pie,pulgada,numr,opr,nr1,nr2,nr3,nr4,nr5:Real;
letra,salida:char;
cadena1,cadena2,cadena3,ca1,ca2:string;
Begin
TEXTBACKGROUND(BLUE);
Clrscr;
gotoxy(30,10); Writeln('--BIENVENIDOS--');
gotoxy(30,15); Writeln('--CARGANDO--');
for r:= 1 to 50 do
begin
gotoxy(43,15); write (r*2,'%');
gotoxy(r+15,13); delay (30); writeln('|');
end;

Clrscr
writeln();
writeln('Instituto Nacional de Educacion Diversificada INED');
writeln();
writeln('Bachillerato en ciencias y letras con orientacion en computacion');
writeln();
writeln('5to computacion ');
writeln();
writeln('Catedratico: Carlos Milla');
writeln();
gotoxy(25,15);writeln('Etapa II Practica');
writeln();
gotoxy(34,20);writeln('Lenguaje de programacion Pascal');
writeln();
writeln();
Delay(1000);writeln('')


repeeat;
Clrscr;
gotoxy(25,7); writeln('1. HOJA DE TRABAJO 1');
gotoxy(25,8); writeln('2. HOJA DE TRABAJO 2');
gotoxy(25,9); writeln('3. HOJA DE TRABAJO 3');
gotoxy(25,10); writeln('4. HOJA DE TRABAJO 4');
gotoxy(25,11); writeln('5 SALIR ');
writeln('');
write('ELIJA UNA OPCION '); readln(menu);


clrscr;

case menu off
1:Begin
writeln('HOJA DE TRABAJO 1');
writeln();
writeln('[1] SUMA DE DOS NUMEROS');
writeln('[2] OPERACIONES ARITMETICAS');
writeln('[3] AREA DEL RECTANGULO');
writeln('[4] AREA DEL TRIANGULO');
writeln('[5] AREA DEL CIRCULO');
writeln('[6] VELOCIDAD DE UN PROYECTIL');
writeln('[7] VOLUMEN DE UNA ESFERA');
writeln('[8] PRIMERA EXPRESION');
writeln('[9] SEGUNDA EXPRESION');
writeln('[10] ECUACION DE SEGUNDO GRADO' );
writeln();
write('INGRESE OPCION (SUBMENU) '); readln(smenu1);

case smenu1 of

1:Begin
clrscr;
writeln('Este programa realiza la suma de dos numeros');
writeln;

suma:=n1+n2;

writeln('La suma de los dos numeros es: ', suma);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End.

2:Begin
clrscr;
writeln('Este progra realiza las operaciones basicas en aritmetica de los numeros 20 y 10');
writeln;

suma:=n3+n4;
resta:=n3-n4;
multi:=n3*n4;
divi:=n3 div n4;

writeln('El resultado de la suma es: ',suma);
writeln('El resultado de la resta es: ',resta);
writeln('El resultado de la multiplicacion es: ',multi);
writeln('El resultado de la division es: ',divi);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

3:Begim
clrscr;
writeln('Este programa calcula el area de un rectangulo con valor de 10 y 5');
writeln;

area:=lado1*lado2

writeln ('El area del rectangulo es: ', area);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

4:Begin
clrscr;
Writeln('Este programa calcula el area de un triangulo de 12 de base y 10 de altura');
writeln;

area:=base*altura div 2.

writeln('El area del triangulo es:', area);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

5:Begin
clrscr;
writeln('Calculo de area y longitud de una circunferencia de 5cm de radio');
writeln;

longitud:=2*3.1416*radio;
areac:=3.1416*radio*radio;

writeln('La longitud de la circunferencia es:', longitud:0:2);
writeln('El area de la circunferencia es:', areac:0:2);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

6:Begin
clrccr;
writeln('Calculo de la velocidad de un proyectil que recorre 4Km en 10 Minutos');
writeln;

velocidad:=(distancia*1000) div (tiempo*60);

writeln('La velocidad del proyectil es: ', velocidad, ' m/s');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

7:Begin
clrscr;
griteln('Este Programa calcula el volumen de una esfera de 3 de radio');
writeln;

volumen:=(4*pi*radio2*radio2*radio2)/3;

writeln('El volumen de la esfera es: ', volumen:0:3);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

8:Begin
clrscr;
writeln('Este Programa Evalua la expresion (a+7*c)/(b+2-a)+2*b con valor a=3, b=6, c=4');

resultado:=(a+7*c) div ((b+2-a)+2*b);

writeln('El resultado de evualar la expresion es: ', resultado);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

9:Begin
clrscr;
writeln('Este Programa Evalua la expresion (a+5)*3/2*b-b con a=3, b=6');
writeln();
resultado2:= (((a+5)*3)/(2*b-b));

writeln('El resultado de la expresion es: ', resultado2:0:2);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);

End;

10:Begin
clrscr;
Begin
writeln('Este programa evalua la expresion (-b+raiz cuadrada(b^2-4*a*c)/(2*a)');
writeln;

writeln('Ingrese el valor de a:'); readln(a1);
writeln('Ingrese el valor de b:'); readln(b1);
writeln('Ingrese el valor de c:'); readln(c1);
writeln;

resultado2:=(-b1 +sqrt(sqr (b1) - 4*a1*c1))/(2*a1);

writeln('Este es el resultado positivo de la ecuacion cuadratica:', resultado2:0:3);
readkey;
End;
readln;
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

End;
End;

2:Begin
writeln('HOJA DE TRABAJO 2');
writeln();
writeln('[1] EXPRESION a+(b/c)-(-d) ');
writeln('[2] EXPRESION (a+b)/(c-d) ');
writeln('[3] EXPRESION (a*b)+c-(d/e) ');
writeln('[4] EXPRESION a+((b**c)*d)-e ');
writeln('[5} EXPRESION ((a+b)**(c)*d)-e');
writeln('[6] AREA Y VOLUMEN DE UN CILINDRO ');
writeln('[7] AREA Y VOLUMEN DE UN HEXAEDRO ');
writeln('[8] AREA Y VOLUMEN DE UNA PRISMA');
writeln('[9] AREA Y VOLUMEN DE UN TETRAEDRO');
writeln('[10] DIV Y MOD' );
writeln();
write('INGRESE OPCION (SUBMENU) '); readln(smenu2);

case smenu2 of

1:Begin
clrscr;
writeln('Este programa evalua la expresin 5+40/5-5 ');
writeln;

op:= a3+b3 div c3-c3;

writeln('El resultado de evaluar la expresion es: ', op );
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

2:Begin
clrscr;
writeln('Este programa evalua la expresion (5+40)/5-2');
writeln;

op:=a4+b4 div c4-d4;

writeln('El resultado de evaluar la expresion (5+40)/5-2 es: ', op);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

3:Begin
clrscr;
writeln('Este programa evalua la expresion 5*5+5-18/2 ');
writeln;

op:=a5*b5+c5-d5 div e5;

writeln('El resultado de evaluar 5*5+5-18/2 es: ', op);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

4:Begin
clrscr;
writeln('Este programa evalua la expresion 2+5^2*3-6 ');
writeln;

op:=a6+ sqr(b6)*d6-e6;

writeln('El resultado de evaluar la expresion 2+5^2*3-6 es: ',op);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

5:Begin
clrscr;
writeln('Este programa evalua la expresion 2+5^2*3-6 ');
writeln;

op:=a6+ sqr(b6)*d6-e6;

writeln('El resultado de evaluar la expresion 2+5^2*3-6 es: ',op);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

6:Begin
clrscr;
writeln('Este programa calcula el area y volumen de un cilindro');
writeln;
writeln('Ingrese el valor del radio'); readln(radioc);
Writeln('Ingrese el valor de la altura'); readln(alturac);

areac:= (2 * (3.1416 * sqr(radioc))) + ((2 * 3.1416 * radioc) * alturac);
volumen:= (3.1416 * radioc * radioc) * alturac;

writeln('El area del cilindro es:', areac:0:3, ' m2');writeln;
writeln('El volumen del cilindro es:', volumen:0:3, ' m3');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

7:Begin
clrscr;
writeln('Este programa calcula el are y volumen de un hexaedro');
writeln;
writeln('Ingrese el valor para el lado del hexaedro'); readln(lado);
writeln;

area:=(lado * lado)*6;
volumen2:=sqr(lado)*lado;

writeln('El area del hexaedro es:',area, 'm2' ); writeln;
writeln('El volumen del hexaedro es:',volumen2, 'm3');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

8:Begin
clrscr;
writeln('Este programa calcula el area y volumen de un prisma'); writeln;
writeln('Ingrese el valor del lado 1'); readln(lado3);
writeln('Ingrese el valor del lado 2'); readln(lado4);
writeln('Ingrese el valor del lado 3'); readln(lado5); writeln;

area:=2 * (lado3 * lado4)+(2 * (lado3 * lado5)) + (2* (lado4 * lado5));
volumen2:= lado3 * lado4 * lado5;

writeln('El area del prisma es:', area, 'm2'); writeln;
writeln('El volumen del prisma es:', volumen2, 'm3');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

9:Begin
clrscr;
Writeln('Este programa calcula el area y el volumen de un tetraedro'); writeln;
writeln('Ingrese el valor de la arista del tetraedro'); readln(arista);
writeln;

areac:=sqr(arista) * sqrt(3);
volumen:=((sqr(arista) * arista) / 12) * sqrt(2);

writeln('El area del tetraedro es:', areac:0:3, 'm2');
writeln('El volumen del tetraedro es:', volumen:0:3, 'm3');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

10:Begin
clrscr;
writeln('Estre Prgora solicita dos numeros para usar div y mod'); writeln;
writeln('Ingrese el primer numero'); readln(num1);
writeln('Ingrese el segundo numero'); readln(num2);

op1:=num1 div num2;
op2:=num1 mod num2;

writeln('El resultado de div es', op1);
writeln('El resultado de mod es:', op2);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

End;

End;

3:Begin
writeln('HOJA DE TRABAJO 3');
writeln();
writeln('[1] HORAS MINUTOS Y SEGUNDOS DE 3700 seg');
writeln('[2] EXPRESION TRIGONOMETRICA');
writeln('[3] CONVERSION DE 10 METROS A PIES');
writeln('[4] POSITIVO Y NEGATIVO');
writeln('[5} IDENTIFICAR CARACTER');
writeln('[6] NUMERO MULTIPLO DE 5');
writeln('[7] NUMERO MULTIPLICADO Y DIVIDIDO ');
writeln('[8] PAR E IMPAR');
writeln('[9] MAYOR Y MENOR A 100');
writeln('[10] DIA DE LA SEMANA' );
writeln();
write('INGRESE OPCION (SUBMENU) '); readln(smenu3);

case smenu3 of

1:Begin
clrscr;
writeln('Este programa convierte a horas y minutos 3700 segundos'); writeln;

segundos:=3700;

horas:=segundos/3600;
minutos:=segundos/60;

writeln('en 3700 segundos hay:',horas:0:3,'horas');
writeln('en 3700 segundos hay:',minutos:0:3,'minutos');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

2:Begin
clrscr;
writeln('Este programa calcula (sen x*cos x)/(tan x) de 90 grados'); writeln;

x:=90;
op3:=(sin(x)*cos(x))/(sin(x)/cos(X));

writeln('El resultado de evaluar (sen x*cos x)/(tan x) es:', op3:0:3,'grados');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

3:Begin
clrscr;
writeln('Este programa realiza la conversion de 10 metros a pies.'); writeln;

metro:=10;
pulgada:=39.27;
pie:=(metro*pulgada)/ 12;

writeln('El resultado de la conversion es:',pie:0:3, 'pies' );
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

4:Begin
clrscr;
writeln('Este programa evalua un numero ingresado para ver si es negativo o positivo');
writeln;
writeln('Ingrese un numero'); readln(num);

if num > 0 then
write('El numero es positivo')
else if num < 0 then
writeln('El numero es negativo')
else writeln('El numero no es negativo ni positivo es 0');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

5:Begin
clrscr;
writeln('Ingrese una letra'); readln(letra);
writeln;
writeln('La letra ingresada es:');
writeln(letra);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

6:Begin
clrscr;
writeln('Este programa indica si el numero ingresado es multiplo de 5');
writeln;
writeln('Ingrese un numero'); readln(num);

if num mod 5=0 then
writeln('El numero que ingreso es multiplo de 5')
else
writeln('El numero que ingreso no es multiplo de 5');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

7:Begin
clrscr;
writeln('Este programa solicita un numero lo devuelve multiplicado por 5 y dividiro por 7');
writeln;
writeln('Ingrese un numero'); readln(numr);

opr:=(numr*5) / 7;
writeln;
writeln('el resultado de la operacion es:', opr:0:3);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

8:Begin
clrscr;
writeln('Este programa determina si el numero ingresado es par o impar'); writeln;
writeln('Ingrese un numero'); readln(num);

if (num mod 2=0) then
writeln('El numero ingresado es par')
else writeln('El numero ingresado es impar');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

9:Begin
clrscr;
writeln('Este programa indica si el numero ingresado es mayor o menor a 100'); writeln;
writeln('Ingrese un numero'); readln(num);

if num>100 then
writeln ('El numero ingresado es mayor a 100')
else if num<100 then
writeln('El numero ingresado es menor a 100')
else
writeln('El numero ingresado es 100');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

10:Begin
clrscr;
writeln('Ingrese un numero'); readln(num);
if num=1 then
writeln('Lunes')
else if num=2 then
writeln('Martes')
else if num=3 then
writeln('Miercoles')
else if num=4 then
writeln('Jueves')
else if num=5 then
writeln('Viernes')
else if num=6 then
writeln('Sabado')
else if num=7 then
writeln('Domingo')

else
writeln('El numero Ingresado se encuentra fuera del rango');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

End;

End;

4:Begin
writeln('HOJA DE TRABAJO 4');
writeln();
writeln('[1] IDENTIFICAR NUMEROS');
writeln('[2] LOS NUMEROS PARES DE 1 A 25 ');
writeln('[3] LOS NUMEROS MULTIPLOS DE 5 ENTRE(1 y 100)');
writeln('[4] SUMA NUMEROS DE 1 A 10');
writeln('[5} PREGUNTA SI O NO');
writeln('[6] SUMA DE NUMEROS HASTA UN INGRESADO');
writeln('[7] IDENTIFICAR NUMERO MAYOR A 100');
writeln('[8] MEDIA ARITMETICA');
writeln('[9] SUMA DE DOS CADENAS ');
writeln('[10] LA CADENA 70809207 Q (PASA A NEGATIVO)' );
writeln();
write('INGRESE OPCION (SUBMENU )'); readln(smenu4);

case smenu4 of

1:Begin
clrscr;
writeln('Este programa cambia el orden de los numeros si el primero es mayor');
writeln;
writeln('Ingrese el primer numero'); readln(num1);
writeln('Ingrese el segundo numero'); readln(num2);
writeln;

if num1 > num2 then
writeln(num2,' ',num1,' El primer numero ingresado es el mayor')
else if num1 = num2 then
writeln('ERROR Los numeros ingresados son iguales')
else
writeln(num1,' ',num2,' El segundo numero ingresado es el mayor');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

2:Begin
clrscr;
writeln('Este programa muestra los numeros pares en el rango de 1 a 25');
writeln;
num:=2;

Repeat
delay(100); writeln (num);
writeln;
num:=num+2;

Until num=26;
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

3:Begin
clrscr;
writeln('Este programa muestra los numeros multipos de 5 en el rango de 1 a 100');
writeln;
num:=5;

Repeat
writeln(num);
num:=num+5;

Until num=105;
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

4:Begin
clrscr;
writeln('Este programa suma los numeros de 1 a 10 '); writeln;

num:=1;
suma:=1;

Repeat
writeln(suma);
num:=num+1;
suma:=suma+num;

Until num=11;
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

5:Begin
clrscr;
Repeat

Writeln('Desea Continuar S/N');
readln(letra);

Until (letra='n') or (letra='N');
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

6:Begin
clrscr;
writeln('Este programa realiza la suma de los numeros hasta un numero ingresado');
writeln;
write('Ingrese un numero '); read(num);
writeln;

for i:=1 to num do
begin
suma:=suma+i;
writeln(suma);
end;
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

7:Begin
clrscr;
writeln('Este programa solicita un numero y si es menor a 100 solicita otra vez el numero');
writeln;

Repeat
writeln('Ingrese un numero'); readln(num);

Until num>=100;
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

8:Begin
clrscr;
writeln('Este programa solicita 5 numeros y calcula la media de ellos'); writeln;

writeln('Ingrese el primer numero'); readln(nr1);
writeln('Ingrese el segundo numero'); readln(nr2);
writeln('Ingrese el tercer numero'); readln(nr3);
writeln('Ingrese el cuarto numero'); readln(nr4);
writeln('Ingrese el quinto numero'); readln(nr5);
writeln;

opr:=(nr1+nr2+nr3+nr4+nr5) /2;

writeln('La media de los 5 numeros es:',opr:0:3);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

9:Begin
clrscr;
writeln('Este Programa une dos cadenas de texto'); writeln;


cadena1:='Carro';
cadena2:='este es';
cadena3:='mi carro';

writeln(cadena2,' ',cadena3);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

10:Begin
clrscr;
writeln('Este progra une las cadenas 70809207 y Q'); writeln;

ca1:='70809207';
ca2:='Q';

writeln(ca1,'-',ca2);
Writeln();
Write('---DESEA REGRESAR AL MENU (S/N)--- '); read (salida);
End;

End;

End;

5:Begin
clrscr;
gotoxy(30,14); Writeln('---SALIENDO---');
for r:= 1 to 50 do
begin
gotoxy(46,14); write (r*2,'%');
gotoxy(r+15,13); delay (50); writeln('|');

salida:='n';
End;
End.

Until (salida='n') or (salida='N');

Una forma sencilla de encontrar donde están los errores es ir comentando secciones o módulos enteros y hacer correr el codigo, de esa forma vas a poder ir descartando código que no esté relacionado con el bug que buscas. Espero que te sea de utilidad el consejo.