Имеется двумерный массив. Вставить нулевую строку и нулевой столбец перед строкой и столбцом, где находится первый минимальный элемент

uses
  Crt;
const
  N = 5;
  M = 5;
var
  a: array [1..N + 1, 1..M + 1] of integer;
  i,j,imin,jmin: integer;
begin
  ClrScr;
  Randomize;
  imin := 1;
  jmin := 1;
  WriteLn('Èñõîäíàÿ ìàòðèöà: ');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8) - 4;
      if a[i, j] < a[imin, jmin] then
      begin
        imin := i;
        jmin := j;
      end;
      Write(a[i, j]:2, ' ');
    end;
    WriteLn;
  end;
  WriteLn('a[', imin, ',', jmin, '] = ', a[imin, jmin], ' - ìèíèìàëüíûé');
  {òåïåðü âñòàâëÿåì ñòîêó}
  for i := N downto imin do
    for j := 1 to M do
      a[i + 1, j] := a[i, j];
  for j := 1 to M do
    a[imin, j] := 0;
  {âñòàâëÿåì ñòîëáåö}
  for j := M downto jmin do
    for i := 1 to N + 1 do
      a[i, j + 1] := a[i, j];
  for i := 1 to N + 1 do
    a[i, jmin] := 0;
  WriteLn('Ïîëó÷åííàÿ ìàòðèöà: ');
  for i := 1 to N + 1 do
  begin
    for j := 1 to M + 1 do
      Write(a[i, j]:2, ' ');
    WriteLn;
  end;
  ReadLn;
end.