Co jest nie tak z tą składnią Pascala?

Nie mogę zrozumieć, co tu się dzieje. Czy może Pan mi pomóc? To jest problematyczny kod:

While not EOF(Archi) do begin
  index:= index + 1;
  Read(Archi, Alumno[index]);
  Promes[index] := (Alumno[index].nota1 + Alumno[index].nota2) / 2;
  if Promes[index] >= 6 then begin
     alguPromo := true;
     PromosIndex := PromosIndex + 1;
     Promos[PromosIndex]:= Alumno[index];
  end;
  else begin
       if Promes[index] > 4 then cantiRecu:= cantiRecu + 1;
       else begin
            LibresIndex += 1;
            Libres[LibresIndex] := Alumno[index];
            end;
  end;
end;

Kompilator oznacza błąd w wierszu 10 tego kodu (w przeciwnym razie zaczyna się). Błąd jest następujący: Błąd krytyczny: błąd składniowy; oczekiwano, ale znaleziono ELSE.

Jeśli ktoś chce skompilować tacę tutaj, to cały kod:http://pastebin.com/dRg1Lguu

questionAnswers(1)

yourAnswerToTheQuestion