Пожалуйста помогите оптимизировать код под версию паскаля 3.10.2

Question

Вообщем, есть код и не работает на версии Паскаля 3.10.2, нейронки не помогают. Помогите пожалуйста оптимизировать, очень срочно надо!
else if userGuess > secretNumber then 
        writeln('Слишком большое число.') 
      else 
      begin 
        writeln('Поздравляем! Вы угадали число ', secretNumber, ' за ', attempts, ' попыток.'); 
        ugadayka := ugadayka + 1; 
      end; 
    until (userGuess = secretNumber) or (attempts = 15); 
    if attempts = 15 then 
    begin 
      writeln('Вы не угадали число. Загадано новое число.'); 
      ugadayka := ugadayka - 0.4; 
    end; 
  until false; 
end.

feniksd · Accepted Answer

... 
    else if userGuess > secretNumber then 
    begin
      writeln('Слишком большое число.'); 
    end
    else 
    begin 
      writeln('Поздравляем! Вы угадали число ', secretNumber, ' за ', attempts, ' попыток.'); 
      ugadayka := ugadayka + 1; 
    end; 
  until (userGuess = secretNumber) or (attempts = 15); 
  if attempts = 15 then 
  begin 
    writeln('Вы не угадали число. Загадано новое число.'); 
    ugadayka := ugadayka - 0.4; 
  end; 
until false;
...
Попробуйте это