Текстовый файл. Сумма цифр. Опции

[Анна]

В текстовом файле подсчитать сумму всех цифр входящих в текст. В качестве результата имя файла, входящие в него цифры в том порядке, в котором они встречаются и найденнцю сумму.

uses crt;


var
  F: text;
  s: string;
  c: char;
  q: set of char;

begin

  clrscr;
  q := ['0'..'9'];

  write ('Введите имя файла: '); readln(s);
  assign (f,s);
   reset (f);
       writeln ('В файле найдены след. цифры: ');
while not eof (f) do begin
  read(f,c);

if c in q then write©; end; readln;

  writeln ('Имя файла: ', s);
  readln;

end.

Имя файла, а также встречающиеся цифры вывести удаётся. С суммой не знаю как поступить ...
Пыталась записать элементы поочерёдно в массив, а потом уже находить сумму элементов массива, что-то не очень получилось.
Подскажите только, не надо сразу код, просто алгоритм или намёк небольшой

[Altair]

так и что тебе не нравиться?