pascal语言字符转换数字函数

(1)var a:char; b:integer; begin read(a); b:=ord(a)-48; write(b); end. (2)var a:string; b:array[1..500] of integer; n,i:integer; w:char; begin read(a); n:=length(a); for i:=1 to n do begin w:=copy(a,i,1)[1]; b[i]:=o