Помогите обойти матрицу. Начало есть
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,k, nap:integer;
begin
randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
k:=k+1;
a[i,j]:=k;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for k:=1 to 2*n-1 do
if k mod 2 =1 then
begin
i:=n-k;