Входящие данные — текстовый файл в каждой строке которого идет последовательность чисел и цифр через пробел. Необходимо их сложить построчно и показать результат -Pascal(Паскаль)

Входящие данные:
12 2 4 13
7 11 9 6 5

Выходящие данные:
31
38

program Project2;
uses
var f:textfile;
a,sum:integer;
begin
assignfile(f,'chisla.txt');
reset(f);
while not eof(f) do //пока не кончится файл
   begin
     sum:=0;
     while not eoln(f) do //пока не кончится очередная строка
        begin
           read(f,a); //читаем числа
           sum:=sum+a; //складываем
        end;
    writeln(sum); //выводим сумму по очередному ряду
    readln(f); //переходим на следующую строку
   end;
readln
end.