Delphi 7 else if statement error?

Question

Procedure Exchangerates; 
var 
    selection: integer; 
    answer, GBP, USD, EUR, JPY: string; 
begin 
    Assignfile(ERfile, 'ER.dat'); 
    reset(ERfile); 
    while not eof(erfile) do 
    begin 
    read(erfile, er); 
    writeln('Which currency do you want to convert from, euros, pounds, dollars or yen'); 
    readln(answer); 
    if answer = 'GBP' then 
    begin 
     writeln('GBP'); 
     writeln('How many pounds to you want to convert to dollars?'); 
     readln(selection); 
     writeln(selection*er.usdtopound:0:2); 
     writeln('How many pounds do you want to convert to euros?'); 
     readln(selection); 
     writeln(selection*er.eurotopound:0:2); 
     writeln('How many pounds do you want to convert to yen?'); 
     readln(selection); 
     writeln(selection*er.yentopound:0:2) ; 
    end; 
    else 
    if answer = 'EUR' then 
     writeln('hi'); 
    end; 
    closefile(erfile); 
end; 

Это программа формы процедуры, которая должна конвертироваться между валютами, когда я пытаюсь запустить оператор if, я получаю сообщение об ошибке, по какой-либо причине, и как я могу ее исправить? Ошибка: [Ошибка] Currencyconvertor3.dpr (75): ';' не допускается до 'ELSE', и когда я удалить с запятой я получаю больше 3 ошибок

[Error] Currencyconvertor3.dpr (75): 'END' ожидалось, но 'ELSE' найдено

[Error] Currencyconvertor3 .dpr (88): Ожидаемая декларация, но идентификатор «closefile» найден

[Ошибка] Currencyconvertor3.dpr (90): '.' ожидаемый, но ';' найдено

Answer 1

Вместо

end; 
else if answer = 'EUR' then 

вам нужно

end 
else if answer = 'EUR' then 

Ложное запятой расторг if заявление.

Если вы более аккуратно отформатировали свой код, было бы, вероятно, более очевидным, что вы сделали неправильно.