Удаление и перемещение элементов массива в паскале

[Devilman]

Помогите решить 2 задачки:
задача №1
Вставить перед всеми строками, в которых есть 0, первую строку, а после всех столбцов в которых есть отритцательные элементы, первый столбец
(2-х мерный массив, размерность вводиться с клавиатуры, метод заполнения рандом).
Задача№2
Если в столбцах встретился эллеимент раный сумме двух первых эллементов текущего столбца , то удалите строки в которых они находяться, удалите столбцы , в которых первый эллемент нулевой, если такой строки или столбца нету, то вывести сообщение об этом.
(2-х мерный массив, размерность вводиться с клавиатуры, метод заполнения рандом).

[Stilet]

Ну и? Наработки где?
Задача то эта решается многими способами.

[Devilman]

Наработок нет, делать нужно через цикл for, что бы я не делал, у меня не выходит работающей проги.

[Stilet]

что бы я не делал

Показывай что делал )

[Devilman]

Я в группе делал, помню только то что был алгоритм в виде
for i:=n downto k do
for j:=1 to m do
x[i+1,j]:=x[i,j];
for j:=1 to m do
X[k,j]:=0;
inc(n)