Образовать новую матрицу вставкой новой строки после строки p и нового столбца после столбца q

Program m_11_1;
const p=3;
const q=5;
const di=6; dj=7;
const ci=7; cj=8;
 var
   D:array[1..8, 1..8] of integer;
   C:array[1..8, 1..8] of integer;
   i,j,a,b:integer;
  begin
    randomize;
    //Матрица D
    for i:=1 to di do
    begin
      for j:=1 to dj do
      begin
        D[i,j]:=3+random(6);
        write(D[i,j],' ');
      end;
      writeln;
    end;
    writeln('--------------');
    //Копия матрицы D в C
    for i:=1 to ci do
      begin
      for j:=1 to cj do
      begin
        c[i,j]:=d[i,j];
        write(c[i,j],' ');
        end;
        writeln;
        end;
        writeln('---------');
        //В Матрице C копия строк
        for i:=1 to ci do
      begin
      for j:=1 to cj do
      begin
        if i>p+1 then
          c[i,j]:=D[i-1,j];
        write(c[i,j],' ');
        end;
        writeln;
        end;
        
    //В Матрицу С добавление новой строки
    for i:=1 to ci do
    begin
      if i=p+1 then
        begin
          writeln('Введите новую строку которую нужно вставить после ',p,' cтроки');
         end;
      for j:=1 to cj do
      begin
        if i=p+1 then
        begin
          c[i,j]:=1;
          //read(c[i,j]);
        end;
      end;
    end;
        writeln('--------');
        //В Матрице C копия столбцов
        for i:=1 to ci do
      begin
      for j:=1 to cj do
      begin
       if j>q+1 then
         c[i,j]:=c[i,j-1];
        write(c[i,j],' ');
        end;
        writeln;
        end;
        writeln('---------------------------');
    writeln('--');
    //В Матрицу С добавление нового столбца
    for i:=1 to ci do
     begin
      for j:=1 to cj do
      begin
        if j=q+1 then
        begin
          C[i,j]:=2;
          //read(C[i,j]);
          end;
      end;
     end;
     writeln('---');
     //Вывод новой Матрицы C
    for i:=1 to ci do
    begin
      for j:=1 to cj do
      begin
        write(c[i,j],' ');
      end;
      writeln;
    end;
  end.

const m=6; n=7; p=3; q=5;
var
  c: array [1..m+1,1..n+1] of Real;
  d: array [1..m,1..n] of Real;
  i, j: Integer;
begin
  {...}
  for i:=1 to m do for j:=1 to n do c[i+Ord(i>p),j+Ord(j>q)]:=d[i,j];
  for j:=1 to n do Read(c[p,j+Ord(j>q)]);
  for i:=1 to m+1 do Read(c[i,q]);