十分简单的pascal问题

program t1;
const
maxn=10000;
var
i,n:longint;
s:string;
a:array[1..maxn]of longint;
begin
read(s);
n:=length(s);
for i:=1 to n do
begin
val(copy(s,i,1),a[i]);
writeln(a[i]);
end;
end.
//============================================
顺便 给你说几个 关于字符串处理的函数
==============================================
{1}length(s) 函数
作用 求字符串s的长度
返回类型 整型
例子
s:='123456789';
l:=length(s);
{l的值为9}
============================================
{2}copy（s,w,k) 函数
复制s中从w开始的k位字符串
s:='123456789';
s1:=copy(s,3,5);
{s1的值是'34567'}
============================================
{3}val(s,k) 过程
将字符串s转为数值，存在k中；
var
s:string;
k:integer;
begin
s:='1234';
val(s,k);
write(k);
end.
{k=1234}
==================================