Pascal ошибка: пока не ожидается, еще нашел

Question

Фатальная ошибка при попытке компиляции «до» не ожидал, нашел «еще», не могу показаться, чтобы получить, как это исправить

......

begin 

divisor:= 2; 
cont:= 0; 
write(i,':'); 

repeat 

    if (i mod divisor = 0) then 
    begin 
write(' divisor '); 
divisor:=succ(divisor); 
cont:=succ(cont); 
     end; 

    else 
divisor:=succ(divisor); 

until (cont = 6) or (divisor>i div 2) 

writeln(); 
    end; 
end; 
end. 

Answer 1

Проблема в том, что у вас есть точка с запятой после end; до else. Это в основном завершает заявление if, поэтому else становится else до repeat (что явно недействительно). Исправление удалить точку с запятой после end;

Смотрите это для справки: http://wiki.freepascal.org/Else

Fix:

if (i mod divisor = 0) then 
    begin 
     write(' divisor '); 
     cont:=succ(cont); 
    end 
    else 
    divisor:=succ(divisor);