Найти № строки сумма числовых значений входящих, в текст равен длинне текста. Опции

[Santrex]

Есть одна задачка.Кто сможет помочь с выполнением буду признателен.

Задан текст в который входят только цифры и буквы.Определить удовлетворяет ли этот текст следующему свойству:сумма числовых значений цифр входящих в текст равна длинне текста.

Если весь алгаритм не получиться написать напшите такие алгоритымы.

1.Как отлечить число в тексте от буквы и записать сумму букв в новый массив b[i] а сумму цифр в массив s[i].
(желательно наглядный пример в виде работающего алгоритма).

[volvo]

Код

var
 s: string; i: byte;
 sum: integer;
begin
 write('Введите текст: '); readln(s);
 sum := 0;
 for i := 1 to length(s) do
   if s[i] in ['1' .. '9'] then inc(sum, ord(s[i]) - 48);
 if sum = length(s) then writeln('Длина текста = сумме цифр')
 else writeln('Длина текста отличается от суммы цифр')
end.

А теперь объясните мне, что в этом было сложного? Настолько сложного, что даже после объяснений, которые давались по ссылке приведенной выше, задачу нельзя было решить? Или просто хотелось не прилагая НИКАКИХ усилий получить готовое решение?

Ведь задача решается в 11 (!!!!) строк...