Работа с матрицами (Pascal)

[^Рыжик^]

Задачи как мне сказали не струдные но самой справиться не получается(

1) Дана квадратная матрица N*N целых чисел. Вставить строку состоящую из единиц после строки в которой сумма элементов минимальна.
2)В произвольной матрице N*M найти сумму элементовв строках с к1 по к2 введенных с клавиатуры

3)Дана квадратная матрица N*N целых чисел Удалить все строкив которых больше половины элементов являются нулями (Доп. массив не использовать)

[Stilet]

3)Дана квадратная матрица N*N целых чисел Удалить все строкив которых больше половины элементов являются нулями (Доп. массив не использовать)

Так подойдет?

var a:array[1..10,1..10] of integer; i,j,cnt:integer;
begin
 {вводим данные}
for i:=1 to 10 do begin
 cnt:=0;
 for J:=1 to 10 do if a[i,j]=0 then inc(cnt);
 if cnt<=5 then
  for J:=1 to 10 do write(a[i,j]:5);
 writeln;
end;
end.

тут обманка на удаление.
P.S. не тестил

[^Рыжик^]

хм..вводила разные массивы включая 10*10 прграмма не удаляет =(