функция возвратит true, если крайние цифры числа х чётные. Delphi

[gusevalelya]

Помогите, пожалуйста.
1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-135,175]. Удалить из него все элементы, первая и последняя цифра которых четная.
2. Вставить число К1 после всех элементов, больших заданного числа, а число К2 – после всех элементов, кратных пяти.
3. Перенести первые k элементов в конец: a[k+1], a[k+2], .. ,a[n], a[2], .., a[k].
Вот код для первого пункта, помогите найти ошибки)

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Randomize;
n:=strtoint(echislo.Text);
SetLength(M,n);
Emassiv.Text:=' ';
for I := 0 to n - 1 do
begin
  M[i]:=random(311)-135;   //массив заполняется случайными числами от -135 до 175
  emassiv.Text:=Emassiv.Text+' '+inttostr(M[i]);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,
j,
k1,
k2:integer;
begin
if CheckBox1.Checked then
begin
i:=0;
Emassiv1.Text:=' ';
while i<=length(m) do
begin
  if (M[i]>99) or (M[i]<-99) then
  if ((M[i] div 100)mod 2 <>0) or ((M[i] mod 10) mod 2<>0)
  then    inc(i)
    else
    begin
      for j:=1 to length(m)-1  do
        m[j]:=m[j+1];
        dec(n);
        Setlength(m,length(m)-1);
    end;
    if ((M[i]>9) and (M[i]<100)) or((M[i]>-100) and(M[i]<-9)) then
       if ((M[i]div 10) mod 2<>0) or ((M[i] mod 10) mod 2<>0)
       then inc(i)
         else
         begin
           for j := 1 to length(m)-1  do
             m[j]:=m[j+1];
             dec(n);
        Setlength(m,length(m)-1);
         end;
     if ((M[i]>-10) and (M[i]<10)) then
       if ((M[i] mod 10) mod 2 <> 0)
       then   inc(i)
         else
         begin
          for j := 1 to length(m)-1  do
             m[j]:=m[j+1];
             dec(n);
        Setlength(m,length(m)-1);
         end;
   end;


for j:=0 to n-1  do
Emassiv1.Text:=Emassiv1.Text+' '+inttostr(M[j]);
end;

[min@y™]

Эта туева хуча логических выражений - вичисление факта чётности 1-й и последней цифр числа?

Чо, серьёзно?

// функция возвратит true, если крайние цифры числа х чётные.
function IsEvenEdges(x: integer): Boolean;
begin
  x:= abs(x);
  Result:= x and 1 = 0;
  if x < 10 then Exit;
  while x > 9 do x:= x div 10;
  Result:= Result and (x and 1 = 0); // что характерно :)
end;