Setlength - Lazarus - Ответ 10395759

procedure obraz (var _t: text; var _amount, _n:integer; var _mas: MyArray; var _str:string);
var
   i:integer;
   k,err:integer;
 
begin
_amount:=0;
_n:=0;  // то, о чем я писал
while not EOF(_t) do
  begin
     read(_t,_str);
 
 for i:=1 to length(_str) do
     begin
       if _str[i] in ['0'..'9'] then
       begin
        setlength(_mas,n+1);
        _mas[_n]:=ord(_str[i]);
        inc(_n);
       end;
 
     end;
 readln(_t);
 end;
close (_t);
for i:=0 to _n-1 do //здесь от 0 до _n-1
begin
 
val(chr(_mas[i]),k,err);
_amount:= _amount+ k ;
end;
end;

procedure obraz (var _t: text; var _amount, _n:integer);
var
   i:integer;
   k,err:integer;
   s:string;
begin
  _amount:=0;
  _n:=0;
  while not EOF(_t) do
     begin
     readln(_t,s);
     for i:=1 to length(s) do
     begin
       if s[i] in ['0'..'9'] then
       begin
         _amount:=_amount+ord(s[i])-48;
         inc(_n);
       end;
     end;
   end;
  close (_t);
end;