Program Matrix3D; uses crt;

const n=3; m=3;

var x:array[1..n,1..m] of integer;
    y:array[1..n,1..m,1..3] of integer;
    i,j:integer;

Begin clrscr;
// Генерируем двумерный мессив
Write('--------------------------------------------------------------------------------');
Writeln(' Исходная матрица: ');
for i:=1 to n do
    Begin
    for j:=1 to m do
        Begin
        X[i,j]:=Random(101);
        X[i,j]:=X[i,j]-50;
        Write(X[i,j]:5);
        end;
    Writeln;
    end;

// Формируем трехмерный массив...
for i:=1 to n do
    for j:=1 to m do
        Begin
        Y[i,j,1]:=X[i,j]; {Элемент матрицы}
        Y[i,j,2]:=i; {Индекс строки матрицы}
        Y[i,j,3]:=j; {Индекс столбца матрицы}
        end;
Write('--------------------------------------------------------------------------------');
Writeln(' Трехмерный массив сформирован...');
Write('--------------------------------------------------------------------------------');
GotoXY(19,WhereY); Writeln('Для продолжения нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

// Выводим трехмерный массив...
for i:=1 to n do
    Begin
    Write('--------------------------------------------------------------------------------');
    Writeln(' Трехмерный массив: ');
    Write('--------------------------------------------------------------------------------');
    Writeln(' Cтрока №',i,': ');
    for j:=1 to m do
        Begin
        Writeln(' Cтолбец №',j,': ');
        Writeln(' Y[',i,',',j,',',1,']=',Y[i,j,1]:5,'  |  Y[',i,',',j,',',2,']=',Y[i,j,2]:2,'  |  Y[',i,',',j,',',3,']=',Y[i,j,3]:2);
        end;
    Write('--------------------------------------------------------------------------------');
    GotoXY(19,WhereY); Writeln('Для продолжения нажмите клавишу "Enter"');
    Write('--------------------------------------------------------------------------------');
    Readln; clrscr;
    end;

Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.