Удалить первую строку, в которой есть отр. элемент

for i:=1 to m do
         begin
              for j:=1 to n do
                  if Ar[i,j]<0 then
                                   begin
                                        k:=i;
                                        s:=j;
                                        break;
                                   end;
              if k>0 then
                         break;
         end;
 
 
     if (k=0)then
                 writeln('Отрицательных элементов нет!')
             else
                 {дальше удаление строки, помогите}

procedure del(var Ar:ar1;m,n:byte);
var
   i,j,k,s:byte;
begin
     k:=0;
     s:=0;
     for i:=1 to m do
         begin
              for j:=1 to n do
                  if Ar[i,j]<0 then
                                   begin
                                        k:=i;
                                        s:=j;
                                        break;
                                   end;
              if k>0 then
                         break;
         end;
 
 
     if (k=0)then
                 writeln('Отрицательных элементов нет!')
             else
                 begin
                      for i:=k to m-1 do
                          for j:=1 to n do
                              Ar[i,j]:=Ar[i+1,j];
                      m:=m-1;
                 end;
end;