Долгая работа программы

[dimon_snake]

Здравствуйте
Нужна ваша помощь
Создал программу, но работает одна ну слииишком долго
Дан файл с разбросанными по нему числами, числа могут быть до 10^18.
Нужно вывести в выходной файл сумму цифр всех тех чисел в обратном порядке.
longint не вмещает 10^18, поэтому воспользовался строками
Читал каждую строку файла, искал там числа, когда находил, считал сумму и кидал в массив
Вышло следующее

var
fi,fo:text;
s:array [1..100] of string;
i,a,l,k,n,ch:integer;
sum:array[1..10000] of byte;
begin
Assign(fi,'D:\sums.txt');
Assign(fo,'D:\sums2.txt');
Reset(fi);
Rewrite(fo);
i:=0;
while not eof(fi) do 
begin
    while not eoln(fi) do 
    begin
        inc(i);
        Read(fi,s[i]);
    end;
    readln;
end;
ch:=0;
for k:=1 to i do 
begin
    for a:=1 to length(s[k]) do 
    begin
        if (s[k][a] in ['0'..'9']) and  not(s[k][a-1] in ['0'..'9']) then 
        begin
            inc(ch);
            l:=0;
        end;
        if s[k][a] in ['0'..'9'] then 
        begin
            val(s[k][a],n);
            l:=l+n;
            n:=0;
        end;
        if (s[k][a] in ['0'..'9']) and not (s[k][a+1]  in ['0'..'9']) then
        sum[ch]:=l;
    end;
end;
for k:=ch downto 1 do Write(fo,sum[k],' ');
Close(fo);
Close(fi);
end.

Даже четыре числа он обрабатывает секунд пять, а 10 чисел я и проверять не стал.
Почему так?

[Plague]

int64 не устраивает?

[dimon_snake]

А в паскале такое есть?

[evg_m]

а зачем нам вообще числа ЕСЛИ нужны нам исключительно ЦИФРЫ (то бишь ОТДЕЛЬНЫЕ символы строки из заданного и фиксированного множества).

сумму цифр всех тех чисел

sum:=0;
while not EOF(fi) do begin
  readln(txt);
  for j:=1 to length(txt) do
    case txt[j] of
    '0': sum:=sum +0;
    '1': sum:=sum +1;
    ...
    '9': sum:=sum +9;
    end;
end;

КОНЕЧНО есть вероятность что при этом надо ИСКЛЮЧАТЬ из суммирования БУКВЕННО-числовые идентификаторы. 'A23' '50Ю'
или надо ВКЛЮЧАТЬ другие кодировки чисел ($0ABCFF), а КАКИЕ цифры тогда надо считать?

[Serge_Bliznykov]

dimon_snake, какой у Вас Паскаль?
Почему в программе задан массив на 10000 элементов, в файле не может быть больше чисел? Есть ограничения? Приведите точную формулировку задания.
и дайте пример входного файла (запаковать в архив, потом на сайте - Расширенный режим, управление вложениями, прикрепить файл).

[eoln]

Похоже, нужно сначала сумму последнего числа, потом сумму предпоследнего и т.д.

Читай файл не как текстовый, а как типизированный типа char, например. Или можно как бинарный открыть. Это позволит читать файл с конца, что избавит от необходимости хранить суммы в массиве (можно сразу писать результат в выходной файл).
Если символ не цифра, то читаем файл дальше (идём ближе к началу), если цифра, то

если предыдущий символ (тот что ближе к началу файла) не цифра, то пишем в файл результат, 
а переменную для подсчёта суммы обнуляем, 
иначе прибавляем её значение в переменную для подсчёта суммы цифр

[Serge_Bliznykov]

Сообщение от evg_m

а зачем нам вообще числа ЕСЛИ нам нужны исключительно ЦИФРЫ.

ну, для каждого ЧИСЛА сумму его цифр нужно посчитать и записать отдельно.

[dimon_snake]

вы, наверное, не так поняли
нужно сначала найти сумму цифр каждого числа
допустим
дан файл с числами
1 2 12 34
нужно вывести суммы в обратном порядке ->
7 3 2 1

[dimon_snake]

free pascal 2.6.4
а 10000 стоит, потому что... размер заданного файла не превышает 512 Кб
Я не знал, сколько одно число весит, но думаю, там вряд ли будет больше 10000 чисел

[evg_m]

n:=0; sum[n]:=0; 
while not EOF(fi) do begin
  readln(txt);
  isnum:=false; 
  for j:=1 to length(txt) do 
    case txt[j] of
    '0': begin sum[n]:=sum[n]+0; isnum:=true; end;
    '9'...
    else if isnum // если у нас и было число 
                  then begin// то оно  закончилось 
                     n:=n+1; // и надо переходить к следующему элементу массива
                     sum[n]:=0; isnum:=false; 
                  end;
    end;
  
  if isnum then begin n:=n+1; sum[n]=0; isnum:=false; end; 
end;

for j:=n-1 downto 0 do 
  writeln(sum[j]);