Посчитать число цифр в тексте и их сумму

[Иван 883]

Здравствуйте Господа программисты. Помогите решить задачку:Считать данные из файла. Подсчитать число цифр в данном тексте и их сумму. И вывести результат в другой файл(в основной программе должен быть перечислен только список процедур) Помогите плз. Извините, что без наработок.. Если можно, то на Pascal'е

[MAKEDON]

Товарищи, пишите на каком языке вам это нужно! Мы тут не экстрасенсы. На Си пойдет?

[Иван 883]

Вот некоторые мысли:

type Mas=array[1..50] of string;

procedure InputData(var a:Mas; var n:integer);
var FileIn:text;
    NameFile:string;
begin
  write('Введите имя входного файла ');
  readln(NameFile);
  assign(FileIn,NameFile);
  {$I-}
  reset(FileIn);
  {$I+}
    if IOResult<>0 then
      begin
        writeln('Ошибка!Файл ',NameFile,' не найден!');
        readln;
        halt;
      end;
    n:=0;
    while not Eof(FileIn) do
      begin
        inc(n);
        readln(FileIn,a[n]);
      end;
  Close(FileIn);
end;

procedure FindNumbersInString(var S:string; var CountNumbers,SummNumbers:integer);
var i:integer;
begin
  CountNumbers:=0;
  SummNumbers:=0;
  for i:=1 to length(S) do
    if S[i] in ['0'..'9'] then
      CountNumbers:=CountNumbers+1;
      SummNumbers:=SummNumbers+CountNumbers;
end;

procedure FindNumbersInMas(a:Mas; n,CountNumbers,SummNumbers:integer);
var i:integer;
begin
  for i:=1 to n do
    FindNumbersInString(a[i],CountNumbers,SummNumbers);
end;

procedure OutputData(a:Mas; n:integer);
var NameFile:string;
    FileOut:text;
    i:integer;
begin
  write('Введите имя выходного файла ');
  readln(NameFile);
  assign(FileOut,NameFile);
  rewrite(FileOut);
  for i:=1 to n do
    writeln(FileOut,a[i]);
    Close(FileOut);
end;

var a:Mas;
    n,CountNumbers,SummNumbers:integer;
begin
  InputData(a,n);
  FindNumbersInMas(a,n,CountNumbers,SummNumbers);
  OutputData(a,n);
end.

Но программа выводит не то что нужно..

[Anatole]

Считать данные из файла. Подсчитать число цифр в данном тексте и их сумму. И вывести результат в другой файл(в основной программе должен быть перечислен только список процедур

Согласно заданию результатми расчёта является количество цифр и их сумма. Поэтому процедуру вывода результатов необходимо оформить в приблизительно в таком виде:
procedure OutputData(a:Mas; n:integer);
var NameFile:string;
FileOut:text;
i:integer;
begin
write('Введите имя выходного файла ');
readln(NameFile);
assign(FileOut,NameFile);
rewrite(FileOut);
for i:=1 to n do
writeln(FileOut,a[i]);
Writeln(FileOut,'Count=',CountNumbe rs);
Writeln(FileOut,'Summ=',SummNumbers );
Close(FileOut);
end;