Объясните, пожалуйста, код - PascalABC.NET

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

Уже два дня сижу не могу понять как решить эту задачу. Есть n городов с m кол-вом населения. Между городами супермаркет. Нужно задать координаты для этого супермаркета так, чтобы он находился на одинаковом расстоянии между городами. Нужно задать код для программы, которая будет спрашивать количество точек, а затем координаты для этих точек и наконец находить равноудаленную точку между этими координатами. У меня есть решение для 5-ти городов (могу только с заранее известным кол-вом городов). Моё решение:

program mkl1;
var x1,x2,x3,x4,x5,y1,y2,y3,y4,y5,m1,m2,m3,m4,m5,f1,f2:real;
begin
writeln('Введите координаты города A1');
readln(x1,y1);
writeln('Введите количество населения города A1');
readln(m1);
writeln('Введите координаты города A2');
readln(x2,y2);
writeln('Введите количество населения города A2');
readln(m2);
writeln('Введите координаты города A3');
readln(x3,y3);
writeln('Введите количество населения города A3');
readln(m3);
writeln('Введите координаты города A4');
readln(x4,y4);
writeln('Введите количество населения города A4');
readln(m4);
writeln('Введите координаты города A5');
readln(x5,y5);
writeln('Введите количество населения города A5');
readln(m5);
f1 :=(x1*m1+x2*m2+x3*m3+x4*m4+x5*m5)/(m1+m2+m3+m4+m5);
f2 :=(y1*m1+y2*m2+y3*m3+y4*m4+y5*m5)/(m1+m2+m3+m4+m5);
writeln(f1);
writeln(f2);
end.

Решение задачи: «Объясните, пожалуйста, код»

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

begin
  var n := ReadInteger('Введите количество городов:');
  var a := ArrGen(n, i -> ReadInteger3('Введите координаты и количество населения города А' + (i + 1)+':'));
  var m := a.Sum(i -> i[2]);
  var f1 := a.Sum(i -> i[0] * i[2]) / m;
  var f2 := a.Sum(i -> i[1] * i[2]) / m;
  Print(f1, f2)
end.

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

Программа считывает количество городов для обработки.
Создается массив с использованием функции ArrGen, которая принимает количество городов и возвращает массив, заполненный сгенерированными координатами и количеством населения для каждого города.
Суммируется количество населения всех городов, используя метод Sum и передавая в него функцию-предикат i -> i[2].
Вычисляется среднее значение площади городов, используя метод Sum и передавая в него функцию-предикат i -> i[0] * i[2].
Вычисляется среднее значение населения городов, используя метод Sum и передавая в него функцию-предикат i -> i[1] * i[2].
Результаты средних значений площади и населения выводятся на консоль с помощью функции Print и передачей ей двух значений: f1 и f2.