Задачка в Паскале

[Pryboy]

Вставить строку из нулей после той в которой нет элементов <0

[Utkin]

Но куда вставить? В какое место? Сколько нулей надо в строке?

[Pryboy]

кол-во элементов в строке не важно, и вставить после строки в которой нет элементоа меньше нуля, это двумерный массив)

[Utkin]

Почему бы Вам не выложить оригинальный текст задания. Вот Вам преподаватель так и мямлит? "Решите задачу на Паскале, там двухмерные массивы". Четкое понимание задачи это 50 % ее решения.

[Pryboy]

я уже сам решил:

const      m=4;
var A:array [1..100,1..m] of integer;
i,j,k,l,r,n,max:integer;
begin
  write('n=');
  readln(n);
 for i:=1 to n do
  for j:=1 to m  do
   read(A[i,j]);
 k:=0;
 i:=1;
 While (k=0) and (i<=n) do
  begin
   for j:=1 to m do
    if A[i,j]<0 then
                begin
                 i:=i+1;
                 R:=1;
                end;
   if r=0 then  k:=1;   end;


            l:=i;
            for i:=n downto l+1 do begin
             for j:=1 to m do  begin
              A[i+1,j]:=A[i,j];
              A[i,j]:=0;            end;

           end;
                 n:=n+1;

for i:=1 to n do
 begin
  writeln;
   for j:=1 to m do
    write(a[i,j]);
 end;
end.