Массив

[Lilen]

Задание: Написать программу, производящую действия с массивами:
1) ввод массива
2) вывод массива на экран
3) обнулить строку, содержащую максимальный элемент матрицы
4) обнулить столбец, содержащий минимальный элемент матрицы
5) поменять местами главную и побочную диагонали матрицы

не правильно работает, помогите исправить ошибки...

var a:array[1..100,1..100] of integer;
    i,j,max,n,m,z,min:integer;
 begin
 randomize;
 writeln('количество строк');
 readln(n);
 writeln('количество столбцов');
 readln(m);

 for i:=1 to n do
   begin
     for j:=1 to m do
       writeln('a[',i,',',j,']=');
       readln(a[i,j]);
       writeln;
   end;

  for i:=1 to n do
    begin
     for j:=1 to m do
        write(a[i,j]:4);
   end;
   
 max:= a[1,1];  min:= a[1,1];
for i:=1 to n do
 begin
 for j:=1 to m do
 if  a[i,j]>max
 then a[i,j]:=0;
  end;

 for j:=1 to m do
 begin
 for i:=1 to n do

   if a[i,j]<min then
  a[i,j]:=0;
  end;
  for i:=1 to n do
  begin
   z:=a[i,i];
    A[i,i]:=a[i,n-i+1];
     a[i,n-i+1]:=z;
  end;

for i:=1 to n do
 for j:=1 to m do
 begin
 write(a[i,j]:4);
 end;
end.

[Stilet]

Что именно не работает?
Какие ошибки выдает?

[Lilen]

Сообщение от Stilet

Что именно не работает?
Какие ошибки выдает?

обнуляет больше, чем нужно. на два элемента больше обнуляет.