Указать номер столбца, максимально удалённого от последнего столбца заданной матрицы

[j4sus]

Расстояние между k-м и l-м столбцами матрицы A=(aij) определяется как
Аннотация 2023-03-22 230347.png
Указать номер столбца, максимально удалённого от последнего столбца заданной матрицы. Вычисление расстояния между столбцами матрицы оформить в виде подпрограммы. Составить схему алгоритма.

[macomics]

x := -1; y := -1; z := 0;
for k := Low(A[Low(A)]) to High(A[Low(A)]) do
  for l := Low(A[Low(A)]) to High(A[Low(A)]) do begin
    S := 0;
    for i := Low(A) to High(A) do
      inc(S, abs(A[i, k]) * abs(A[i, l]));
    if (x = -1) or (S > z) then begin
      x := k;
      y := l;
      z := S;
    end;
  end;
WriteLn(x, ' ~ ', y, ' = ', z);