Составьте одномерный массив из чисел, стоящих в нечтных столбцах двумерного массива

uses crt;
const n=5;
var b:array[1..n,1..n] of integer;
    a:array[1..n*3] of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=-35+random(71);
    write(b[i,j]:5);
   end;
  writeln;
 end;
k:=0;
j:=1;
while j<=n do
 begin
  for i:=1 to n do
   begin
    k:=k+1;
    a[k]:=b[i,j];
   end;
  j:=j+2;
 end;
writeln('Массив элементов из нечетных столбцов:');
for i:=1 to k do
write(a[i]:5);
readln
end.

Const n=5;
Var A:array[1..n,1..n] of integer;
    B:array[1..n*n] of integer;
    i,j,m:byte;
Begin
    writeln('Матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(71)-35;
        write(A[i,j]:5);
      End;
      writeln;
    End;
    j:=1;
    While j<=n do
    Begin
      For i:=1 to n do
      Begin
        inc(m);
        B[m]:=A[i,j];
      End;
      inc(j,2);
    End;
    writeln('Полученный массив');
    For i:=1 to m do
     write(B[i]:5);
    readln;
End.