A：
在编写函数过程中，用户使用的begin必须和end配对。要end的情况有以下几种，用户请参考之后再检查看哪个地方缺少end结束符：
1）、if…then…else判断语句体：如果判断之后执行的语句体有两句或者两句以上，则必须用begin…end封装起来，常见的判断体如下：
If flag then
Begin
…
End
Else
Begin
…
End;
2）、循环语句体：如果循环语句体有两句或者两句以上，需用begin…end封装。常见的循环体如下（对数组r循环）：
A、for循环：
For nI:=0 to length(r)-1 do
Begin
…
End;
B、while循环：
While flag do
Begin
…
End;
3）、case选择结构语句：使用case 选择语句，必须要用end作为case的结束句。常见语句如下：
case flag of
  1: a:=1;
  2: a:=3;
  3: a:=5;
end;
如果选择结果后面的语句也有两句或者两句以上，也需要用begin…end封装，如范例：
case flag of
1:
  begin
   a:=1;
   b:=2;
  end
2:
  begin
   a:=3;
   b:=4;
  end
3:
  begin
   a:=5;
   b:=6;
  end
end;