Дан массив целых чисел из 25 элементов,заполненный случайным образом числами из промежутка [-35,75]

[Vinam*]

Можете помочь с программой?
1)Дан массив целых чисел из 25 элементов,заполненный случайным образом числами из промежутка [-35,75]
Удалить из него все элементы,первая цифра которая чётная!

Нужно удалить те элементы,первая цифра которых чётная! Например:21 43 64 24 23 !!!
Отредактируйте программу, пожалуйста,программа удаляет такие элементы как 34 56 44 12 просматривает со 2 цифры!Только с использованием Div и Mod!
1)

program ex1231;
const nmax=25;
Type myarray=array [1..nmax]of integer;
 
Procedure init2(var n1:integer;var x:myarray);
var i:integer;
begin
repeat
write('Размер массива до ', nmax,' n=');
readln(n1);
until n1 in [1..nmax];
for i:=1 to n1 do
x[i]:=random(76)-36;
end;
Procedure print1(n1:integer;x:myarray);
var i:integer;
begin
for i:=1 to n1 do
write(x[i]:3);
writeln;
end;
Procedure Delete(var n1:Integer;Var m:myarray);
Var i,j:Integer;
Begin
i:=1;
while i<=n1 do
if (m[i] div 10=0) or (m[i] mod 2=0 ) then
 begin
  if i=n1 then n1:=n1-1
  else
   begin
    for j:=i to n1-1 do
    m[j]:=m[j+1];
    n1:=n1-1;
   end;
 end
else i:=i+1;
end;
var a:myarray;
    n:integer;
Begin
Randomize;
Init2(n,A);
writeln('Ucxodniy macciv');
Print1(n,A);
Delete(n,a);
writeln('Poly4enniy ');
print1(n,a);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

не проверял.
но попробуйте вместо строчки

if (m[i] div 10=0) or (m[i] mod 2=0 ) then

такую:

if ((m[i] div 10) mod 2) = 0 then {первая цифра чётная}
....

[Vinam*]

Работает,но почему-то убирает единицу 1 !?

[Zer0]

if (abs(m[i])>10) and ((m[i] div 10) mod 2 = 0) then {первая цифра чётная}