Tach so co trong xau

program tach_so_trong_xau;
var
s:string;
i,n,kt,t:longint;
begin
write('nhap s='); readln(s);
for i:=1 to length(s)+1 do
if s[i] in ['0'..'9'] then
begin
val(s[i],n,kt);
t:=t*10+n;
end
else if (t>0) or (s[i-1]='0') then
begin
write(t,', ');
t:=0;
end;
readln;
end.