Найти сумму и произведение компонент файла действительных чисел - PascalABC.NET

Формулировка задачи:

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

Решение задачи: «Найти сумму и произведение компонент файла действительных чисел»

Листинг программы

var f : file of real;
  d, sum, mult : real;
begin
  Assign(f, 'file.dat');
  Reset(f);
  sum := 0;
  mult := 1;
  while not eof(f) do begin
    Read(f, d);
    sum := sum + d;
    mult := mult * d
  end;
  Close(F);
  WriteLn('summa = ', sum:1:4,' multiplation = ', mult:1:4)
end.

Объяснение кода листинга программы

Объявляются переменные:
- f: файл действительных чисел
- d, sum, mult: действительные числа
Открывается файл 'file.dat' для чтения
Переменная sum инициализируется как 0, а mult как 1
Запускается цикл while, который выполняется до тех пор, пока не достигнут конец файла (eof(f) = false)
Внутри цикла считывается число из файла и присваивается переменной d
К переменным sum и mult добавляется значение переменной d
После окончания цикла, файл закрывается
Выводится сообщение с значениями переменных sum и mult, отформатированными как 4 знака после запятой