Помогите составить программу

[viktorblat]

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

[KORN]

в цикле пробегаешься по массиву копируешь первые 2 цифры, далее разбиваешь число на 2 цифры и проверяешь их на четность.. т.е. если делятся без остатка то четное и т.д.

з.ы. темы называем нормально

[Chudo4258]

Function F(x:integer):Boolean;
var a,b:integer;
begin
while x>9 do
begin
 a:=x mod 10;
 x:=x div 10;
 b:=x mod 10;
end;
If (a=b)and(a mod 2=0)and(b mod 2=0) then F:=true
                                     else F:=false;
end;

Проверяет условие задачи.
А удалить из массива элемент сам попробуй.