Pascal/Turbo Pascal - Compilador Free Pascal

Hola, estoy con un problema bastante facil de solucionar (para alguien que sepa, claro), tengo el siguiente codigo:
program main;
Uses Estructu;
var
Dada, Resultado, Aux: Pila;
Cont, contsec, suma : Integer;
Promedio: Real;
begin
Writeln(' Ingrese los valores: ');
readpila(Dada);
inicpila(Resultado,'');
inicpila(Aux,'');
Cont:=0;
Suma:= 0;
Contsec:= 0;
Promedio:= 0;
While not pilavacia(Dada) do
begin
Cont:= 0;
begin
while tope(dada)<>0 do
begin
Desapilar(dada);
cont:= cont + 1
Else -----------------> EN ESTA LINEA ME DA UN ERROR DE COMPIL.
begin
Desapilar(dada);
cont:= cont + 1;
Apilar(Resultado, Cont);
end;
end;
end;
end;
While not pilavacia(Resultado) do
begin
Suma:= Suma + tope(Resultado);
Apilar(Aux, desapilar(Resultado));
Contsec:= Contsec + 1;
end;
While not pilavacia(Aux) do
Apilar(Resultado, desapilar(Aux)
Promedio:= suma / contsec;
Apilar(Resultado, Promedio);
Write(Resultado);
readln;
end.

Dice, algo así, como que esperaba un " ; " y encontro un "ELSE", ya probe sacandole y poniendole el " ; " en la linea anterior en la posterior, pero persiste el error, estoy usando el compilador mas comun de FREE PASCAL.
Si alguien me puede ayudar, ya que es un ejercicio que debo presentar en un final libre q debo dar en unos dias en la facultad.
Muchas Gracias!!
Facundo.

Hola Facundo.
No podemos hacer nada si no nos pasas el código de "Estructu.pas" para compilarlo y tener el "Estructu.tpu".

Sin esta unidad me da el error: "File not found (ESTRUCTU.TPU) y no puedo ver el error que te da a tí.

Saludos!