Pascal. Индекс находился вне границ массива

[KorLinor]

Выдаёт ошибку в коде для сортировки двумерного массива, помогите исправить:

const
n=4;
var
a:array [1..n,1..n] of integer;
i,j,k,count:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(9)+1;
end;
for i:=1 to n do begin
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;
begin
k:=n*n;
k:=k div 2;
while (k>0) do begin
for i:=1 to n do begin
for j:=1 to n do
if a[i+(j+k-1) div n,(j+k-1) mod n+1]<=n then
while (a[i,j]<a[i+(j+k-1) div n,(j+k-1) mod n+1]) do begin
count:=a[i,j];
a[i,j]:=a[i+(j+k-1) div n,(j+k-1) mod n+1];
a[i+(j+k-1) div n,(j+k-1) mod n+1]:=count;
end;
k:=k - 1;
end;
end;
end;
begin
writeln('Вот этот массив, только он не такой как в начале:');
for i:=1 to n do begin
for j:=1 to n do
write (a[i,j], ' ');
writeln;
end;
end;
end.

[evg_m]

чему равно i+(j+k-1) div n при i=n j=1 k=n*n/2 и n четное(т.е. k mod n=0)