Преобразовать двумерный массив в одномерный

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  b: array[1..nmax*nmax] of integer;
  i,j,k,n,m: integer;
begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  k:=0;
  writeln('Двумерный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      inc(k);
      a[i,j]:=k;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  k:=0;
  writeln('Одномерный массив:');
  for i:=1 to n do
    if i mod 2<>0 then
      for j:=1 to m do
      begin
        inc(k);
        b[k]:=a[i,j];
      end else
      for j:=m downto 1 do
      begin
        inc(k);
        b[k]:=a[i,j];
      end;
  for i:=1 to n*m do write(b[i],' ');
  readln
end.

program Project1;
 
const
  M = 3;
  N = 5;
type
  TArr2 = array[1..M, 1..N] of Integer;
  TArr1 = array[1..M * N] of Integer;
var
  Arr2 : TArr2;
  PArr1 : ^TArr1;
  i, j, k : Integer;
begin
  //Записываем данные в двумерный массив Arr2 и выполняем распечатку:
  Writeln('Двумерный массив:');
  k := 0;
  for i := 1 to M do begin
    for j := 1 to N do begin
      Inc(k);
      Arr2[i, j] := k;
      if j > 1 then Write(#9);
      Write(Arr2[i, j]);
    end;
    Writeln;
  end;
 
  //Получаем указатель на область памяти, где расположен двумерный
  //массив типа TArr2. И теперь будем рассматриваем эту область,
  //как одномерный массив типа TArr1.
  PArr1 := @Arr2;
  //Распечатываем массив PArr1^.
  Writeln('Одномерный массив, расположенный в той же области памяти, что и двумерный:');
  for i := 1 to High(PArr1^) do begin
    if i > 1 then Write(' ');
    Write(PArr1^[i]);
  end;
  Writeln;
 
  Readln;
end.