Как присвоить элементы двумерного массива одномерному?

const
  n = 3;
  m = 4;
 
var
  x: array [1..n, 1..m] of integer;
  y: array [1..n * m] of integer;
  a, b: array [1..n] of integer;
  c: array [1..2 * n] of integer;  
  i, j, k: integer;
 
begin
  randomize;
  {Как присвоить элементы двумерного массива одномерному? }  
  k := 0;
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := random(n * m);
      write(x[i, j]:4);
      inc(k);          
      y[k] := x[i, j];
    end;
    writeln;
  end;
  writeln('Полученный одномерный массив:');
  for i := 1 to k do
    write(y[i]:4);
  writeln;        
  {соединить два одномерных массива в один?   }  
  writeln('Первый одномерный массив:');    
  for i := 1 to n do
  begin
    a[i] := random(n * m);
    write(a[i]:4);    
  end;
  writeln;    
  writeln('Второй одномерный массив:');    
  for i := 1 to n do
  begin
    b[i] := random(n * m);
    write(b[i]:4);    
  end;
  writeln;    
  writeln('Объединенный одномерный массив:');    
  for i := 1 to n do
    c[i] := a[i];
  for i := 1 to n do
    c[n + i] := b[i];
  for i := 1 to 2 * n do
    write(c[i]:4);    
end.