матрицы

[kuy]

Здравствуйте, помогите пожалуйста с задачей:
Задан двовымерный массив(константа), записать матрицу по столбикам в одновымерный массив.
Наробки:

program Project1kr;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
m1:array[1..3,1..5]of integer =
(
(5,2,9,3,2),
(5,2,9,4,6),
(5,2,9,3,2)
);
m2:array[1..100]of integer;
i,j,k:integer;
begin
for i:=1 to 3 do
 begin
  for j:=1 to 5 do
   write(m1[i,j]:4);
   writeln;
 end;

[NetSpace]

for i:=1 to 3 do
begin
  for j:=1 to 5 do
  begin 
      m2[((i-1)*5)+j]:=m1[i,j];//формируем массив-столбец
   end;
end;

for i:=1 to 100 do WriteLn(m2[i]);//выводим массив в виде столбика