Обход матрицы

1
Помогите обойти матрицу. Начало есть

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;

Может это поможет: