Help me bài tập pascal

[killer123]

B1 Nhập 1 số rồi tìm số bé nhất; tổng càc số thành phần
VD; 1235 thì số bé nhất là 1 và tổng các số là 11
B2 Nhập 1 số rồi kiểm tra xem số đó có phải số chính phg ko

[tamppk]

code nè:
var s,s1,s2:longint;i,k:integer;
st:string;
begin
write('nhap so:');readln(s);
str(s,st);
val(st[1],s1,k);
for i:=2 to length(st)do
if s1<val(st[i],s2,k) then
s1:=s2;
s2:=0;
for i:=1 to length(st)do
s2:=s2+val(st[i],s1,k);
end.
//chua test dau.thu di nhe.chac la dung day.


bai 2.

nhap thi thoi nhe.tu khai bao nha.
sqrt(s);str(s,st);
for i:=1 to length(st)do
if st[i]='.' then
write('ko fai so chinh phuong')
else
write('la so cp');
end.

[dmtmufc]

ko nhất thiết phải đổi sang xâu
bài 1:
t:=0;min:=x;y:=x;
while y>0 do
begin
if min>(y mod 10) then min:=y mod 10;
t:=t+y mod 10;
y:=y div 10;
end;
write('tong cac so=',t,' min=',min);
bài 2:
if sqrt(x)=round(sqrt(x)) then write('so chinh phuong')
else write('so ko chinh phuong');