function digtal(n,k:longint):integer;
var s:string;
begin
str(n,s);
exit(ord(s[k])-48);
end;
这是用 free pascal 设置的函数
turbo Pascal 中
exit(ord(s[k])-48);
改为 digtal:=ord(s[k])-48;