Массивы

[Asira]

Дан квадратный числовой массив размером NxN. Заполнить его числами от 1 до N2 по указанной траектории: m[1,1] =1; m[1,2] =2; m[2,1]=3; m[2,2]=4; m[3,1]=5 и т.д.
мой вариант работает только в массиве 8х8

{$APPTYPE CONSOLE}

uses
  SysUtils;
const N=8;
type mas=array[1..N,1..N] of integer;
var m:mas;
procedure Vvod(n:integer;var m:mas);
var i,j,k:integer;
begin k:=1;
for i:=1 to N do begin for j:=1 to 2 do begin m[i,j]:=k; k:=k+1;
end;
end;
for i:=1 to N do begin for j:=3 to 4 do begin m[i,j]:=k; k:=k+1;
end;
end;
for i:=1 to N do begin for j:=5 to 6 do begin m[i,j]:=k; k:=k+1;
end;
end;
for i:=1 to N do begin for j:=7 to 8 do begin m[i,j]:=k; k:=k+1;
end;
end;
end;
procedure Vivod(m:mas);
var i,j: integer;
begin
for i:=1 to N do
begin
for j:=1 to N do
write(m[i,j]:5,' ');
writeln;
end;
end;
begin
Vvod(n,m);
Vivod(m);
readln;
end.

как сделать чтобы она работала при всех n?

[eoln]

procedure Vvod(n:integer;var m:mas);
var i,j:integer;
begin 
for i:=1 to n do for j:=1 to n do m[i,j]:=(i-1)*n+j;
end;

[Asira]

Спасибо!!!!!!!!!!!!!!!!
Но так я пробовала прога всё равно не правильно выводит
мне надо
1 2 7 8
3 4 9 10
5 6 11 12

а этот код выведет
1 2 3 4
5 6 7 8
9 10 11 12

[eoln]

Тогда так

for j:=1 to n do for i:=1 to n do m[i,j]:= 2*i-1 + n*(j-1) - (n-1)*((j-1) mod 2);

[Asira]

Спасибо!!!!!!!!