Сформировать матрицу из элементов вектора

uses crt;
const k=30;
      n=5;
      m=6;
var a,c:array[1..k] of integer;
    b:array[1..m,1..m] of integer;
    i,j:byte;
    s1,s2,mx:integer;
begin
clrscr;
randomize;
writeln('Вектор А:');
for i:=1 to k do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
writeln;
s1:=0;
s2:=0;
for i:=1 to k div 2 do
 begin
  s1:=s1+a[i];
  s2:=s2+a[k-i+1];
 end;
writeln('Сумма первых ',k div 2,' = ',s1,' вторых = ',s2);
if s1>s2 then
 begin
  writeln('Сумма первых ',k div 2,' больше');
  writeln('Матрица В:');
  for i:=1 to m do
   begin
    for j:=1 to n do
     begin
      b[i,j]:=a[j+n*(i-1)];
      write(b[i,j]:4);
     end;
    writeln;
   end;
  writeln;
  for i:=1 to m do
   begin
    mx:=b[i,1];
    for j:=1 to n do
    if b[i,j]>mx then mx:=b[i,j];
    c[i]:=mx;
   end;
  writeln('Вектор С:');
  for i:=1 to m do
  write(c[i]:4);
 end
else
 begin
  writeln('Сумма первых ',k div 2,' не больше');
  writeln('Матрица В:');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      b[i,j]:=a[j+m*(i-1)];
      write(b[i,j]:4);
     end;
    writeln;
   end;
  writeln;
  for j:=1 to m do
   begin
    mx:=b[1,j];
    for i:=1 to n do
    if b[i,j]>mx then mx:=b[i,j];
    c[j]:=mx;
   end;
  writeln('Вектор С:');
  for i:=1 to m do
  write(c[i]:4);
 end;
readln
end.