Добавление столбцов в двумерный массив

const maxSize = 10;
type aType = array [1..maxSize, 1..maxSize] of Integer;
 
function ReadA(var Rows, Cols : Integer) : aType;
var Row, Col : Integer; a : aType;
begin
  Write('Количество строк: '); ReadLn(Rows);
  Write('Количество столбцов: '); ReadLn(Cols);
  for Row := 1 to Rows do for Col := 1 to Cols do
    begin Write('a[', Row, ', ', Col, '] = '); Read(a[Row, Col]); end;
  ReadA := a;
end;
 
procedure WriteA(Rows, Cols : Integer; a : aType; msg : String);
var Row, Col : Integer;
begin
  WriteLn(msg);
  for Row := 1 to Rows do begin
    for Col := 1 to Cols do Write(a[Row, Col]:5); WriteLn;
  end;
end;
 
procedure InsertOne(var Rows, Cols : Integer; var a : aType);
var Row, Col, c : Integer;
begin
  for Col := Cols downto 1 do
    begin
      c := 0; for Row := 1 to Rows do if a[Row, Col] = 0 then Inc(c);
      if c > 0 then
        begin
          Inc(Cols);
          for Row := 1 to Rows do begin
            for c := Cols downto Col+2 do a[Row, c] := a[Row, c-1];
            a[Row, Col+1] := 1;
          end;
        end;
    end;
end;
 
var Rows, Cols : Integer; a : aType;
begin
  a := ReadA(Rows, Cols);
  WriteA(Rows, Cols, a, 'Исходный массив:');
  InsertOne(Rows, Cols, a);
  WriteA(Rows, Cols, a, 'Новый массив:');
end.