So studiando da 4-5 giorni il pascal ma mi sono bloccato in un esercizio ecco il codice:

codice:
(*intestazione del programma*)
program museo;

(*parte dichiarativa*)
uses
newdelay , crt;

var
visitatori, somma_eta: integer;
eta_media: real;
risposta: char; (* S oppure N per SI/NO*)
eta: integer;
Errore: integer;
etaS: string;

(*parte esecutiva*)
begin
  clrscr; (*cancella schermo*)

  visitatori:=0;
  eta:=0;
  somma_eta:=0;
  eta_media:=0;


  repeat
    visitatori:= visitatori + 1;

  repeat
    writeln ('Inserire l''eta'' del visitatore n. ', visitatori);
    readln(etaS);

    val (etaS, eta, errore);
    if errore <>0 then
      writeln('Errore! Inserire un numero in cifre');
    else
      if eta<0 then
      writeln('Errore! Inserire un valore maggiore od uguale a zero')
  until eta >=0;
    somma_eta := somma_eta + eta;
    eta_media := somma_eta / visitatori;

    writeln ('eta''media attuale: ',eta_media:4:2);

    writeln('ci sono altri visitatori da inserire ? (S/N)');
    readln (risposta);
    until risposta= 'N';

    writeln('Premi INVIO per continuare...');
    readln;
end.


mi da error in statement dove ce else perche?? non posso trovare vie alternative perche e un esercizio e devo capirlo.