pascal语言写一个字符串的鉴别函数

var
str:string;
function panduan(s:string):boolean;
var
b:boolean;
i:integer;
begin
b:=true;
i:=1;
if not(s[i]>='A')and(s[i]<='Z')then
b:=false;
for i:=2 to 5 do
if(s[i]<='0')and(s[i]>='9') then
b:=false;
for i:=6 to 9 do
if not(s[i]>='A')and(s[i]<='Z')then
b:=false;
panduan:=b;
end;
begin
readln(str);
if panduan(str) then
write('YES')
else
write('NO');
end.
｛我编了整个程序｝
｛pascal里不能打中文，我只能用拼音代替｝
{子程序里小写要不要判断，要的话加or not(s[i]>='a')and(s[i]>='z')}
{1楼理解错了，2楼没用子程序，我调试过了对了

{定义全局模板，通过修改模板可以实现任意匹配}
const m:string='A0000AAAA';
{定义鉴别函数，返回TRUE表示成功}
function chech_m(s:string):boolean;
var i:integer; rst:boolean;
begin
rst:=true;
for i:=1 to leng