Удалить все элементы побочной диагонали матрицы

for i:=1 to m do
 begin
  sum:=0;
  for j:=1 to n do
   sum:=sum+a[j,i];
 if sum mod 3=0 then
 for j:=1 to n do
  a[j,i]:=3;
 end;

program mas_1;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
repeat
write('Размер матрицы n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=(i-1)*n+j;
     write (a[i,j]:3);
    end;
   writeln;
  end;
for i:=1 to n do
for j:=n-i+1 to n-1 do
a[i,j]:=a[i,j+1];
writeln('Результат:');
for i:=1 to n do
 begin
  for j:=1 to n-1 do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,s,x:integer;
begin
clrscr;
repeat
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
until(m in [1..nmax])and(n in [1..nmax]);
writeln('Массив:');
for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=(i-1)*n+j;
     write (a[i,j]:4);
    end;
   writeln;
  end;
repeat
write('Введите номер левого столбца не более', n-2,' k=');readln(k);
until k in [1..n-2];
repeat
write('Введите номер правого столбца не менее', k+2,' s=');readln(s);
until s in [k+2..n];
for j:=k+1 to s-1 do
for i:=1 to m div 2 do
 begin
  x:=a[i,j];
  a[i,j]:=a[m-i+1,j];
  a[m-i+1,j]:=x;
 end;
writeln('Результат:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.