Pascal的编程题，大家帮帮忙，急！！！

来源：百度知道 编辑：UC知道 时间：2024/05/17 23:31:27
我是电脑初级者，遇到两道应该算是初级题（尽管我不会，呜！），要用非常急着知道答案，麻烦大家尽快帮忙，在这先谢谢了！
1，用递归实现函数digit(n,j),它回送整数n 的从右边开始的第j位数字。
例：digit(25367,4)=5
2，编写程序，输一段字符，统计其中大写字母、小写字母和数字的个数。例：输入’ABC1357xyz’，则返回大写字母个数为3，小写字母个数为3，数字个数为4。

program dig;
var
n,l:integer;
st:string;
a:longint;
function t(a:longint;m:integer):integer;
begin
if n=l-m+1 then t:=t mod 10;
else t:=t(a div 10,m+1)l;
begin
readln(a,n);
str(st,a);
l:=length(st);
writeln(t(a,1));
end.

我不知道