Найти сумму символов(чисел) в файле - Pascal ABC

var
  g: text;
  f: file of char;
  c: char;
  err, sum, n: integer;
 
begin
  assign(f, 'data.txt');
  assign(g, 'out.txt');
  reset(f);
  rewrite(g);
  sum := 0;
  while not eof(f) do 
  begin
    read(f, c);
    if c <> ' ' then 
    begin
      val(c, n, err);
      sum := sum + n;
    end
    else 
    begin
      write(sum:5);
      write(g, sum, ' ');
      sum := 0
    end;
  end;
  writeln;
  close(f);
  close(g);
end.