Вставка строки в двумерном массиве Опции

[mugler02]

Прошу помочь разобраться с решением задачи:

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Заранее спасибо.

[mugler02]

То есть верно будет так?

Код

k:=0;
for j:=1 to n do
begin
  for i:=1 to m do
  if (a[i,j]<0)and (a[i,j]) mod 2 =0 then
        k:=j;
end;
if k=0 then write('В матрице нет отрицательных нечетных элементов')
else
begin
  writeln('Номер первого столбца с нечетным отрицательным элементом=',k);
  for i:=1 to m do{всем элементы всех строк}
  for j:=k to n-1 do{от номера столбца до предпоследнего}
  a[i,j]:=a[i,j+1];{присваиваем значение следующего}
  n:=n-1;{уменьшаем количество столбцов}
end;
writeln('Удаление столбца:');
…