Напряженность поля создаваемое точечным зарядом - Pascal ABC

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

Помогите составить прогу :Напряженность поля создаваемое точечным зарядом вычисляется по формуле , где q-заряд создающий поле, ε_ijε=8.85∙10^-12 Ф/м, r - расстояние от q до точки.Найти общую напряженность поля для трёх зарядов,если для каждого из них известны величина заряда q и расстояние r.Использовать подпрограмму-функцию.

Решение задачи: «Напряженность поля создаваемое точечным зарядом»

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

type tt = record q, r: double end;
 
function e(t: tt): double;
const eps = 8.85e-12;
begin
  e := t.q / 4 / pi / eps / t.r / t.r
end;
 
var i: byte;
    p: array [1..3] of tt;
    s: double;
 
begin
  s := 0;
  for i := 1 to 3 do
    begin
      write('q', i, ' = ');
      readln(p[i].q);
      repeat
        write('r', i, ' > 0;  r', i, ' = ');
        readln(p[i].r)
      until p[i].r > 0;
      s := s + e(p[i])
    end;
  write('E = ', s);
  readln
end.

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

Создается тип данных tt, который представляет собой запись с двумя полями: q и r, оба из которых являются числами с плавающей точкой.
Определяется функция e, которая принимает объект типа tt и возвращает число с плавающей точкой. В этой функции используются несколько констант и переменных, включая eps, которая представляет собой очень маленькое число (8.85e-12).
Создается переменная i, которая является байтом (8 бит).
Создается массив p, который содержит 3 элемента типа tt.
Создается переменная s, которая является числом с плавающей точкой.
Запускается цикл for, который проходит от 1 до 3. На каждой итерации цикла выводится значение поля q объекта tt, связанного с текущим элементом массива p. Затем читается значение поля r этого же объекта. Цикл повторяется до тех пор, пока значение поля r не станет больше нуля. На каждой итерации цикла вычисляется значение функции e для объекта tt, связанного с текущим элементом массива p, и добавляется к переменной s.
По окончании цикла выводится значение переменной s.