Как использовать несколько операторов в одном случае?

Question

Так что я использую pascal, и я хочу добавить несколько операторов в один случай. Я попробовал этот код, но я получаю сообщение об ошибке: «Ошибка: Постоянные и КОРПУСА типы не совпадают»

procedure pay; 
begin 
loop:=loop+1; 
CASE loop OF 
1: 
writeln('E-Mail: '); 
readln(mailO[1]); 
writeln('amount: '); 
readln(amount[1]); 


end; 

Answer 1

Wrap составные операторы в begin и end:

procedure pay; 
begin 
    loop:=loop+1; 
    CASE loop OF 
    1: 
     begin 
     writeln('E-Mail: '); 
     readln(mailO[1]); 
     writeln('amount: '); 
     readln(amount[1]); 
     end; 

    2: writeln('simple statement'); 

    3: begin 
     writeln('something else'); 
     writeln('etc.'); 
     end; 

    end; 
end;