Сможете посодействовать написать программу?

Const
  n = 10;

var
  a: array[1..n, 1..n] of integer;
  i, j, k, s: integer;

begin
  Writeln('Сгенерированная матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := абс(n - i - j + 1);
      Write(a[i, j]:2)
    end;
    Writeln
  end;
  Write('Введите номер столбца (1-10): ');
  Readln(k);
  if not (k in [1..10]) then Writeln('Столбца с таким номером не существует')
  else begin
    s := 0;
    for j := 1 to n do s := s + a[k, j];
    Writeln('Сумма частей по столбцу ', k, ' одинакова ', s)
  end
end.

Тестовое решение:

Сгенерированная матрица
 9 8 7 6 5 4 3 2 1 0
 8 7 6 5 4 3 2 1 0 1
 7 6 5 4 3 2 1 0 1 2
 6 5 4 3 2 1 0 1 2 3
 5 4 3 2 1 0 1 2 3 4
 4 3 2 1 0 1 2 3 4 5
 3 2 1 0 1 2 3 4 5 6
 2 1 0 1 2 3 4 5 6 7
 1 0 1 2 3 4 5 6 7 8
 0 1 2 3 4 5 6 7 8 9
Введите номер столбца (1-10): 8
Сумма элементов по столбцу 8 одинакова 31