Найти длину вектора - Free Pascal

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

Из текстового файла загружается одномерный массив, состоящий из действительных чисел: a₁,a₂...a_n. Количество чисел в массиве заранее неизвестно. Программа определяет длину вектора:

Решение задачи: «Найти длину вектора»

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

var a, d: Real;
begin
  Assign(input,'input.txt'); Reset(input);
  while not SeekEoF do begin
    Read(a); d:=d+sqr(a);
  end;
  WriteLn(SqRt(d));
  Close(input);
end.

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

Объявляются две переменные типа Real: a и d.
Открывается файл input.txt для чтения.
Запускается цикл while, который выполняется до тех пор, пока не будет достигнут конец файла (EoF).
Внутри цикла считывается значение переменной a из файла.
Значение переменной d увеличивается на квадрат значения переменной a.
Завершается цикл while.
Закрывается файл input.txt.
Вычисляется квадратный корень из значения переменной d с помощью функции SqRt и выводится на экран с помощью функции WriteLn.