【急！】Pascal。输入一个整数，输出该数每一位数字的和。

Program ex1; {程序首部}

Var
a: longint;
s: byte= 0; {说明部分}
Begin {语句部分}

ReadLn(a); {输入待处理整数}
repeat
s:= s+a mod 10;
a:= a div 10;
until a= 0
Writeln('每一位数字的和=',s)；
ReadLn; {等待输入回车键}

End.

Program ex2;
var
a,n,max,min: integer;
begin
for n:= 1 to 10 do
begin
Write('请输入第',n,'个数字')； ｛给出提示信息｝
readln(a);
case n of
1: begin
max:= a;
min:= a;
end;
2..10:begin
if n> max then
max:= n;
if n< min then
min:= n;
end;
end;
end;
Writeln('最大数='，max)；
Writeln('最小数='，min)；
end.

第一题：
var m,n,l,t:integer;
begin
readln(n);
m:=n;
while m<>0 do
begin
l:=m mod 10;
m:=m div 10;
t:=t+l;
end;
writeln(t);
end.

第二题：
var n,i,minn,maxn:integer;
begin
maxn:=-32768;
minn:=32767;
for i:=1 to 10 do
begin
read(n);
if n>maxn then maxn:=n;
if n end;
writeln('max:',maxn,' min:',minn);
end.

第1题：
var
begin
readln(n);s:=0;
l:=length(n);
for i:=1 to l do
begin
a:=n mod 10;
s:=s+a;
n:=n div 10;
end;
writeln(s);
end.
第2题：
var i:byte;a:array [1..10] of longint;
max,min,temp:longint;
begin
for i:=1 to 10 do read(a[i]);
max:=0;min:=9999999999;
for i:=1 to 10 do if a[i]>max then
begin temp:=a[i];a[i]:=max;max:=temp;
for i:=1 to 10 do if a[i] begin temp:=a[i];a[i]:=min;min:=temp;
write('max='max);
writeln;
write('min='min);
end.