Переписать ленточную матрицу в экономный вид.

[Flashmob]

Добрый день, необходимо записать исходную ленточную матрицу [1..n,1..n]
в экономный вид [1..n,-m1..m2], где m1-число диагоналей с ненулевыми элементами, расположенных под гл. диагональю в матрице A. m2-исло диагоналей с ненулевыми элементами, расположенных над гл. диагональю в матрице A.

[Flashmob]

Вроде разобрался. Программа получилас следующая:
for i:=1 to n do begin
k:=-m1;
for j:=i-m1 to i+m2 do begin
if (j<1) or (j>n) then a[i,k]:=0 else a[i,k]:=a0[i,j];
write (a[i,k]:6:2);
k:=k+1;
end;
writeln;
end;
Потестил, пока ошибок не нашел. Быть может кому пригодиться.