Pascal 如何将多个语句用于一个case语句？

所以我使用pascal，我想在一个案例中添加多个语句。我尝试了此代码，但出现错误： “错误：常量和大小写类型不匹配”

---

将复合语句包装在

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;

---

将复合语句包装在

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;