Создать матрицу 4 на 4, для каждого четного столбца вывести сумму квадратов его элементов - Pascal

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

что то мне подсказывает что я номера столбцов в квадрат возвел а не его элементы

Program  M5;
Var A : Array[1..4,1..4] Of  Integer; 
I,K,R,S,B: integer; 
Begin
For I:=1 To 4 Do //  заполняем строки
Begin 
For  K:=1 To 4 Do //  заполняем столбцы
Begin 
A[I,K]:=Trunc(Random*10)+1; // от 1 до 10
Write(A[I,K]:6); 
for S:=1 to 4 do If  K mod 2=0 Then R:=sqr(K); // если номер столбца делится на 2 то возводим в квадрат, и так 4 раза
B:=0+R // сюда вносится сумма квадратов
End; 
Writeln 
End; 
Writeln ('Сумма квадратов элементов четных столбцов: ',R) // выводим сумму квадратов,всегда получается 16...
End.

Решение задачи: «Создать матрицу 4 на 4, для каждого четного столбца вывести сумму квадратов его элементов»

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

const n=4; W=4;
var
  a: array [0..n-1,0..n-1] of Integer;
  s: array [0..n div 2-1] of Integer;
  i, j: Integer;
begin
  Randomize;
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      a[i,j]:=Random(10)+1; Write(a[i,j]:W);
      if Odd(j) then Inc(s[j div 2],Sqr(a[i,j]));
    end; WriteLn;
  end;
  WriteLn('Суммы квадратов четных столбцов:');
  for j:=0 to n div 2-1 do Write(' ',s[j]:W*2-1); WriteLn;
end.

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

Создается константа n со значением 4, которая определяет размер матрицы.
Создается константа W со значением 4, которая определяет ширину поля вывода для каждого элемента матрицы.
Создается двумерный массив a размером 4x4, который будет содержать случайно сгенерированные числа от 1 до 10.
Создается одномерный массив s размером n/2, который будет содержать суммы квадратов элементов четных столбцов.
Создаются две переменные i и j для обозначения номеров строк и столбцов в матрице.
С помощью функции Randomize инициализируется генератор случайных чисел.
В цикле от 0 до n-1 происходит заполнение матрицы a случайными числами от 1 до 10 с помощью функции Random(10)+1.
С помощью функции Write(a[i,j]:W) выводится значение элемента матрицы a[i,j] с шириной поля вывода W.
Если номер столбца j является нечетным, то к сумме квадратов элементов четных столбцов s[j div 2] добавляется квадрат элемента матрицы a[i,j].
После заполнения матрицы выводится новая строка с помощью функции WriteLn.
В цикле от 0 до n div 2-1 выводятся значения суммы квадратов элементов четных столбцов s[j] с шириной поля вывода W*2-1.
Программа завершается с помощью функции End.