В матрице определить суммы положительных элементов в чётных столбцах и заменить последние элементы в этих столбцах на значение большей из полученных сумм — Pascal(Паскаль)

uses crt;
const n = 4;
type mas = array [1..n, 1..n] of integer;
var a: mas;
    max, sum, i,j, n2: integer;
begin
  clrscr;
  randomize;
  {заполняем матрицу и выводим на экран}
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j] := 100+random(20);
      write(a[i,j], '  ');
    end;
    writeln('');
  end;
  {ищем максимальную сумму}
  max := -maxint;
  n2 := trunc(n/2);
  for j:=1 to n2 do
  begin
    sum := 0;
    for i:=1 to n do
      sum := sum + a[i, j*2];
    if (sum > max) then max := sum;
  end;
  {заменяем последний элемент в четном столбце}
  for i:=1 to n2 do
    a[n, i*2] := max;
  {выводим матрицу}
  writeln('');writeln('x2');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(a[i,j], '  ');
    end;
    writeln('');
  end;
 
 
  repeat until keypressed;
end.