Паскаль. Робота с трехмерными массивами

[GeFeR]

Есть двумерный массив Z. Нужно найти трехмерный массив dZ методом вычитания n-го от (n-1)-го элемента по каждой строке. Вот моя прога, но оно отнимает только один раз... а мне нужно до одного элемента. Скажем, такой метод итераций.
Помогите! Заранее спасибо!!

program interpol_2_zminnumu;
uses crt;

type MyArr=Array[1..10,1..10] of real;
       Arr=Array[1..10,1..10,1..20] of real;
var Z:MyArr;
     dZ,dnz:Arr;
     i,j,ni,nj:integer;
     k:integer;

BEGIN
clrscr;
  //ввод розмерности масива Z
  write('ni,nj=>'); readln(ni,nj);
 
 //Ввод Z[i,j]
 for I:=1 to Ni do
   for J:=1 to Nj do
   begin
     write (' Z[',I:2,',',J:2,'] => ');
     readln (Z[I,J]);
   end;


 //Вывод Z[i,j]
 for i:=1 to ni do
  begin
    for j:=1 to nj do
     write('  ',z[i,j]);
     writeln;
  end;

 writeln; 

 //Находим dZ
      for i:=1 to ni do
        for j:=1 to nj do
         for k:=1 to ni do
          begin
            dz[i,j,k]:=z[i,j+1]-z[i,j];
            dnz[i,j,k]:=dz[i,j+1,k+1]-dz[i,j,k];
          end;

end.

ну помогите, народ... курсовая горит!!!

[Stilet]

Не понял... Зачем там третье измерение? Трехмерный массив зачем?

[GeFeR]

ну что бы потом еще работать с этим массивом (трехмерным). например если массив Z будет не 2Х2 а 10Х10 то у паскаля просто памяти не хватит...
Если так будет понятнее: у меня тема Интерполирование функций двух переменных методом Ньютона