[ Foro de Pascal ]

estoy haciendo un menu y me tira sintax error ; ayuda

PROGRAM MENUDEWILFRED;
USES CRT;
VAR
OPCION : INTEGER;
num : integer;
function doble( Numero: integer): integer;
begin
   doble := numero * 2;
BEGIN
 CLRSCR;
  WRITELN('------MENU PRINCIPAL------');
  WRITELN('1.Averiguar si un número es positivo o negativo.');
  WRITELN('2.Elevar un número al cubo');
  WRITELN('3.IVA de una compra');
  WRITELN('4.Quintales a libras.');
  WRITELN('5.Km a pies');
  WRITELN('6.Horas a minutos');
  WRITELN('7.Par o impar');
  WRITELN('4.SALIR');
  WRITELN('QUE OPCION QUIERES?');
  READLN(OPCION);
 
     if (opcion =1) then
      begin
    WriteLn ('Ingresa número');
    ReadLn (num);
    if num > 0 then
         Write ('El Numero que usted eligio es positivo');
    else
         Write ('El Numero que usted eligio es Negativo');
    end;
   
   
   
      if (opcion =2) then
      begin
      write('Introduce un numero entero: ');
   readLn( numero);
   writeLn('Su doble es: ', doble(numero) );
   writeLn('Y el doble de 5 es: ', doble(5) );
   end;
     
     

      begin
        writeln(' SALIENDO..... ');
       END;  
REPEAT UNTIL KEYPRESSED

Para empezar, la función no está cerrada con un "end;": tienes

begin
   doble := numero * 2;
BEGIN