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

Написать программу.(уровень 10 класса, мудреного языка не надо,функции и процедуры приветствуются,писать на Pasckal-е)Удалить из массива все элементы у которых 1-ая цифра четная.
Массивы рандомные,кол-во 10.

Как-то так:

int array[10]; // СИшный массив из чисел
for i:=0 to 10 do array[i] := random(1000); // создали "рандомные"
for i:=0 to 10 do
begin
  char buf[20]; // это на Си
  itoa( array[i], buf, 10); // перевели в строку: 2341 -> "2341", 10-система счисления
  Integer l:=strlen(buf); // длина строки: l=4
  if not (buf[l-1] and 1) then array[i]:=1; // якобы удалили: {1,6,2,12,231} -> {1,1,1,12,1}    
end;

Переделайте нужные места в Паскаль сами, ладно?