[Row]

Условие задачи:
Дан текст, в котором имеются цифры. Найти их сумму.
Использовать:

• переменные литерного типа;
• возможность ввода и чтения из буфера ввода;
• циклы;

Набросал что-то типо этого:

Код:

uses
SysUtils;
var a:char; k,c:integer;
begin
writeln('vvedite text');
c:=0; k:=0;
read(a);
c:=ord(a)+c;
read(a);
while a<>#13 do
begin
if (a>='0') and (a<='9') then
begin
c:=ord(a)+c;
c:=c-48;
if c>57 then
begin
k:=k+1;
c:=c-48;
end;
end;
read(a);
end;
a:=chr(c);
writeln('summa =',k,chr(c));
readln;
readln;
end.

Но эта дрянь не всегда считает...
Очень буду признателен, за помощь