Удалить столбец матрицы, в котором находится первый нечетный отрицательный элемент

var
  Form1: TForm1;
  mas:array[0..6,0..5]of integer;
  d:integer=0; r:boolean=true;
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
Randomize;
//заполняем случайными значениями
label1.Caption:=''; label2.Caption:='';label3.Caption:='';
for i:=0 to high(mas)do
  for j:=0 to high(mas[1])do
  mas[i,j]:=RandomRange(-5,10);
//выводим для наглядности
for i:=0 to high(mas)do begin
  for j:=0 to high(mas[1])do begin
   label1.Caption:=label1.Caption+inttostr(mas[i,j])+' ';
      if (mas[i,j]<0)and(mas[i,j] mod 2 <>0)and(r) then begin  //запоминаем номер столбца в котором встретился первый нечетный отрицательный элемент
        d:=j; r:=false; end;
   end;
label1.Caption:=label1.Caption+#13#10;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//удаляем первый нечетный отрицательный элемент
for i:=0 to high(mas)do begin
  for j:=0 to high(mas[1])do
    if j<>d then
    label2.Caption:=label2.Caption+inttostr(mas[i,j])+' ';
label2.Caption:=label2.Caption+#13#10;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
//меняем местами
for i:=0 to high(mas)do begin
  for j:=0 to high(mas[1])do
  case j of
   1: label3.Caption:=label3.Caption+inttostr(mas[i,j+1])+' ';
   2: label3.Caption:=label3.Caption+inttostr(mas[i,j-1])+' ';
   3: label3.Caption:=label3.Caption+inttostr(mas[i,j+1])+' ';
   4: label3.Caption:=label3.Caption+inttostr(mas[i,j-1])+' ';
   else label3.Caption:=label3.Caption+inttostr(mas[i,j])+' ';
  end;
label3.Caption:=label3.Caption+#13#10;
end;
end;