高手帮偶看一下程序哪里出错了（pascal）

program ex;
var
n,i,b,c,d,e:integer;
flag:boolean;
begin{0}
flag:=false;n:=0;
for i:=2345 to 5432 do begin{1}
b:=i mod 10;
c:=(i div 10)mod 10;
d:=(i div 100)mod 10;
e:=i div 1000;
case i mod 10 of
2,3,4,5:begin{2}
flag:=true;
case (i div 10)mod 10 of
2,3,4,5:begin{3}
case (i div 100)mod 10 of
2,3,4,5:begin{4}
case i div 1000 of
0,1,6,7,8,9:flag:=false
end{4}
end;{4}
0,1,6,7,8,9:flag:=false
end;{2}
if (flag=true)and(c>b)and(e>d)and(e>b)
then begin{5}
inc(n);

高手帮偶看一下程序哪里出错了（pascal） 哪个C++高手帮我看一下程序,我不知道哪里出错了~! 帮忙看一下这个C程序哪里出错了~~~ 这个程序哪里出错了 c语言程序高手帮我看看这个switch程序哪里出错了？ 请VB高手调试一下这个程序,.看出错在哪里? 帮忙看一下我的程序哪里出错了？？？？拜托了！！！ C++程序出错了，请求高手帮忙？ 高手帮忙,冒险岛程序出错了! 这道C程序哪里出错了啊？