Работа с массивами (Паскаль) - запись двухмерного массива в одномерный

Программа, которая запишет элементы прямоугольной матрицы А в одномерный массив в порядке следования столбцов. Размер и элементы матрицы А выберем произвольно.
Блок-схема

Текст программы:
uses crt;
var
   A : array [1..4, 1..6] of Integer;
   B : array [1..24] of Integer;
   i, j, k : Integer;
begin
     clrscr;
     {Инициализация генератора случайных чисел}
     Randomize;
     {Заполнение массива случайными числами}
     for i:= 1 to 4 do
         for j:=1 to 6 do
             A[i,j]:=Random(100);
     {Вывод массива на экран}
     WriteLn('Исходный массив');
     for i:=1 to 4 do
     begin
         for j:=1 to 6 do
             Write(A[i,j]:4);
         WriteLn
     end;
     {Запись матрицы в одномерный массив}
     k:=1;
     for j:=1 to 6 do
         for i:=1 to 4 do
         begin
             B[k]:=A[i,j];
             k:=k+1
         end;
     { Вывод массива на экран }
     WriteLn('Полученный массив');
     for k:=1 to 24 do
         Write(B[k]:3);
     WriteLn;
     ReadLn
end.
Результат: