двумерный вывести как одномерный

[Raphael]

Подскажите, пожалуйста, как в паскале двумерный массив вывести в виде одномерного и обратно

[GetMax]

Например так можно вывести двухмерный массив в одномерный

Var
  M:array[1..5,1..5] of byte;
  V:array[1..25] of byte;
  i,j,k:Byte;
Begin
  k:=1;
  For i:=1 to 5 do
  Begin
     For j:=1 to 5 do
     Begin
        V[k]:=M[i,j];
         Inc(k)
     End;
  End;
  For k:=1 to 25 do Write(V[k]:3);
  Readln
End.