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

var
Form2: TForm2;
N: integer;   //êîë-âî ýëåìåíòîâ ìàññèâà
M : array of integer;  //îïèñàíèå íà÷àëüíîãî ìàññèâà
     implementation
 
     {$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var
i: Integer;
begin
  Randomize;
  N:=StrToInt(Edit2.Text);
  SetLength(M,N);
  Edit1.Text:='  ';
  For i:=0 to N-1 do
 
begin
  M[i]:=Random(75+35+1)-35; //çíà÷åíèÿ â ìàññèâå [-35,75]
  Edit1.Text:=Edit1.Text+'   '+IntToStr(M[i]); //Âûâîäèì ìàññèâ
end;
end;
 
 
procedure TForm2.Button3Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var
   i,j,k:integer;
begin
   if checkbox1.Checked then //Óñëîâèå íàëè÷èÿ ÷åêáîêñà
begin
   edit3.Text:='  '; //î÷èùàåì ïîëå Ýäèò
   i:=0;
   while i<n do
begin
   k:=abs(M[i]);  //áåðåì ÷èñëî ïî ìîäóëþ
   //åñëè ÷èñëî îäíîçíà÷íîå è ÷åòíîå, èëè îíî äâóçíà÷íîå è ïåðâàÿ öèôðà ÷åòíàÿ
   if ((k<10)and(k mod 2=0))or((k>10)and((k div 10)mod 2=0)) then
 
begin
   if i=n-1 then n:=n-1
    else
begin
   for j:=i to n-2 do
   M[j]:=M[j+1];
    n:=n-1;
    setlength(M,n);
end;
end
     else i:=i+1;
end;
 
    for i:=0 to n-1 do
     Edit3.Text:=Edit3.Text+'   '+inttostr(M[i]);
 
end;
end;
end.