В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: сумма числовых значений цифр,входящих в текст, равна длине текста — Pascal(Паскаль)

Uses
 CRT;
Var
 i,k,l:integer;
 s:string;
 sum,dlstr:longint;
begin
ClrScr;
readln(s);
dlstr:=length(s);
sum:=0;
for i:=1 to dlstr do
if s[i] in ['0'..'9'] then
begin
val(s[i],k,l);
sum:=sum+k
end;
writeln('Sum:=',sum);
if sum=dlstr then writeln('ДА равна')
else
writeln('Нет');
readln;
end.