_mass[_n]:=ord(_str[i]);

uses crt;
Type
  MyType = integer;
  PMyVector = ^MyVector;
  {"Строка" динамической матрицы }
  MyVector = array[1 .. 1] of MyType;
  aarray = ^MyVector;
var
  name: string;
  bufwd: integer;
  t, t1: text;
  kolC,  amount, valch: Integer;
  Mass: aArray;
{--------------------------------------------------------}
{сохранение текста в память}
procedure SaveMemory(var _t: text; var _amount: Integer; var _Mass: aArray; var _valch: integer);
begin
while not EOF(_t) do
begin
    Read(_t, bufwd);
    Inc(_valch);
end;
  Reset(_t);
  getmem(_Mass,_valch * sizeof(integer));
while not EOF(_t) do
begin
    Read(_t, bufwd);
    _Mass^[_amount] := bufwd;
_amount := _amount + 1;
end;
end;
{--------------------------------------------------------}
{сумма и кол-во}
procedure Sum(var _Mass: aArray; _valch: integer; var _amount, _n:integer);
var i,k: integer;
_str:string;
begin
_amount:=0;
_n:=0;
for i:=1 to length(_str)do
     begin
       if _str[_n] in ['0'..'9'] then
       begin
        inc(_n);
        _mass[_n]:=ord(_str[i]);
       end;
     end;
 readln(_t);
 end;
close (_t);
for i:=1 to _n do
begin
val(chr(_mass[i]),k,err);
_amount:= _amount+ k ;
end;
end;
{--------------------------------------------------------}
{возвращение памяти}
procedure Clear(_Mass: aArray; _valch:integer);
begin
  freemem(_Mass,_valch * sizeof(integer));
end;
{--------------------------------------------------------}
{вывод результата}
procedure output (var _t2: text; var _amount, _n: integer);
begin
writeln (_t2,'amount= ',_amount);
writeln (_t2, 'quantity= ',_n);
close (_t2);
Writeln ('The result is calculated');
end;
{--------------------------------------------------------}
{основная программа}
begin
ClrScr;
SaveMemory(t, amount, Mass, valch);
Sum(Mass, valch, amount, n);
Clear(Mass,valch);
Output (t2, amount, KolC);
  WriteLn('The number c: ', kolC, ' Summa C: ', amount);
  WriteLn('Press <Enter> for exit...');
ReadLn;
end.

uses crt;
{$R-}
Type
  MyType = char;
  PMyVector = ^MyVector;
  { "Строка" динамической матрицы }
  MyVector = array[1 .. 1] of MyType;
  aarray = ^MyVector;
var
  name: string;
  str: string;
   n: integer;
   bufwd:char;
  t, t1: text;
  sumS, sumP, amount, valch: Integer;
  Mass: aArray;
 
{подпрограмма для сохранения текста в память}
procedure SaveMemory( var _t: text; var _amount: Integer; var _Mass: aArray; var _valch: integer);
begin
  while not EOF(_t) do
  begin
    Read(_t, bufwd);
    Inc(_valch);
  end;
  Reset(_t);
  getmem(_Mass,_valch * sizeof(char));
  while not EOF(_t) do
  begin
    Read(_t, bufwd);
    _Mass^[_amount] := bufwd;
    _amount := _amount + 1;
  end;
end;
 
{подпрограмма для подсчета количества слов и предложений}
procedure Sum(var _t:text;_Mass: aArray; _valch: integer; var _n, _amount:integer; var _str:string);
var
  i,k,err: Integer;
begin
  _n:=0;
  _amount:=0;
  for i := 1 to length(_str) do
    if {_Mass^}_str[i] in ['0'..'9'] then
         begin
           inc(_n);
           _mass^[_n]:=ord(_str[i]);
    end;
 
   readln(_t);
 
close (_t);
for i:=1 to _n do
begin
val(chr(_mass^[i]),k,err;
_amount:= _amount+ k ;
end;
end;
 
{подпрограмма для возвращения памяти}
procedure Clear(_Mass: aArray; _valch:integer);
begin
  freemem(_Mass,_valch * sizeof(char));
end;
 
{основная программа}
begin
  ClrScr;
  WriteLn('Enter the file name: ');
  ReadLn(name);
  Assign(t, name);
  {$I-}
  Reset(t);
  {$I+}
  if ioresult <> 0 then
    WriteLn('File not found.')
  else
  begin
    WriteLn('Found file.');
    WriteLn;
    Reset(t);
    Assign(t1, 'abc1.txt');
    Rewrite(t1);
    sumS := 0;
    sumP := 0;
    amount := 1;
    SaveMemory(t, amount, Mass, valch);
    Sum(t,Mass, valch, n,amount, str);
    Clear(Mass,valch);
    WriteLn(t1, n);
    WriteLn(t1, amount);
    Close(t1);
    Close(t);
  end;
  Reset(t1);
  ReadLn(t1, n, amount);
  WriteLn('The number : ', n, ' Amount: ', amount);
  WriteLn('Press <Enter> for exit...');
  ReadLn;
end.