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

[FrostMaster]

Даны массивы целых чисел А1[M,N], А2[M,N], А3[M,N], где M,N<=8. Вставить нулевой столбец перед строкой и столбцом, где находится минимальный элемент. Использовать StringGrid.

я нахожу минимальный элемент, добавляю новую строку, вставляю нулевой столбец, но хотелось бы, чтобы матрица сдвигалась вправо. Может кто подсказать идею алгоритма для сдвига всей матрицы на один столбец с определённого элемента?

Код Delphi
for i:=1 to N do
for j:=1 to M do begin
znach:=StrToInt(Grid1.Cells[i,j]);
if min=znach then begin
Grid1.ColCount:=Grid1.ColCount+1;
begin
for p:=Grid1.RowCount downto i do
for l:=1 to Grid1.ColCount do
Grid1.Cells[p,l]:=Grid1.Cells[p+1,j]; end;
for k:=1 to Grid1.ColCount do
Grid1.Cells[i+1,k]:=IntToStr(0);
end;

я сделал так, но он ругается, когда запускаешь функцию.