дан файл f компоненты которого являются действительными числами. найти сумму компонент файла f

var    f: text;    i, sum: real;beginsum := 0;    assign(f,'data.txt');    reset(f);    repeat         while not eoln(f) do begin            read(f, i);            sum := sum + i;        end;        readln(f);    until eof(f);    close(f);    writeln('Сумма = ', sum);end.