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

var
  Form1: TForm1;
  a: array of array of integer;
  n,m:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
n:=Strtoint(edit1.Text);
m:=Strtoint(edit2.Text);
Setlength(a,n,m);
Stringgrid1.rowcount:=n;
Stringgrid1.colcount:=m;
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  a[i,j]:=random(100);
  Stringgrid1.cells[j,i]:=inttostr(a[i,j]);
 end
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,p,f:integer;
begin
i:=0;
p:=n;
f:=p; //пока не удалено ни одной строки
while i<n do
if a[i,1]>a[i,m-2] then
 begin
  dec(f);
  if i=n-1 then dec(n)
  else
   begin
    for k:=i to n-2 do//сдвигаем строки на 1 вверх
    for j:=0 to m-1 do
    a[k,j]:=a[k+1,j];
    dec(n);  //уменьшаем количество строк
   end
 end
else i:=i+1; //если 2й не больше предпоследнего
if f=0 then showmessage('Все строки удалены!')
else if f=p then showmessage('Ни одна строка не удалена!')
else
 begin
  with stringgrid2 do
   begin
    rowcount:=n;
    colcount:=m;
    for i:=0 to n-1 do
    for j:=0 to m-1 do
    cells[j,i]:=inttostr(a[i,j]);
   end
 end
end;