Двумерные массивы

[quade1992]

1. Дана матрица размера M х N. Вывести ее элементы в следующем порядке: первая строка слева направо, вторая строка справа налево, третья строка слева направо, четвертая строка справа налево и т. д.

2. Дана квадратная матрица A порядка M. Найти среднее арифметическое элементов каждой ее диагонали, параллельной побочной (начиная с одноэлементной диагонали Ai i).

для 1 задачи, но что то тут не так)))
var
a:array [1..m,1..m] of integer;
i,j:integer;
s:real;
begin
writeln('Введите m');
//read(m);
randomize;
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:6);
end;
writeln;
end;
if (a[i]=a[j]) then
s:=0;
for i:=1 to m+1 do
s:=a[i,j]/3;
write('Среднее арифметическое= ',s:1:1);
end.

[Arhangel7]

для 1 задачи, но что то тут не так)))

наверное для 2 задачи ?