Переформировать двумерный массив в одномерный - Turbo Pascal

const a: array [1..3, 1..3] of integer = ((2,  7, -1),
                                          (0,  4,  5),
                                          (7, -5,  6));
var b: array [1..9] of integer absolute a;
    i, j: integer;
begin
  writeln('Matrix:');
  for i := 1 to 3 do
    begin
      for j := 1 to 3 do write(a[i, j]:3);
      writeln
    end;
  writeln('Vector:');
  for i := 1 to 9 do write(b[i]:3);
  readln
end.