Вставить первую строку посередине, но при этом чтобы матрица увеличилась

Unit pro;
interface
const size = 3;
type
 tMatrix = array [1..size, 1..size] of real;
 tArray = array [1..size] of real;
 
var
 m: tMatrix;
 implementation
 
procedure fillMatrix(var m: tMatrix);
var
 i, j: integer;
 begin
 for i := 1 to size do begin
                       for j := 1 to size do begin
                                             m[i, j] := random(10);
                                             end;
                       end;
 end;
 
procedure printMatrix(m: tMatrix);
var
 i, j: integer;
begin
 for i := 1 to size do begin
                       for j := 1 to size do begin
                                             write(m[i, j], '  ');
                                             end;
  writeln();
                       end;
end;
 
function getRow(m: tMatrix; numRow: integer): tArray;
var
 i: integer;
begin
 for i := 1 to size do begin
                       result[i] := m[numRow, i];
                       end;
end;
 
procedure setRow(var m: tMatrix; numRow: integer; insertRow: tArray);
var
 i: integer;
begin
 for i := 1 to size do begin
                       m[numRow, i] := insertRow[i];
                       end;
end;
 
procedure runOperations(var m: tMatrix; f, s: integer);
var
 temp: tArray;
 begin
 temp := getRow(m, f);
 setRow(m, f, getRow(m, s));
 setRow(m, s, temp);
 writeln();
 end;
end.

Uses pro;
begin
 fillMatrix(m);
 printMatrix(m);
 
 runOperations(m, 1, (size div 2) + 1);
 printMatrix(m);
end