Матрицы. Delphi

[AlexXXX12389]

Всем привет!!!!! Ребята, помогите, пожалуйста, с решением следующей задачи:
Найти сумму цифр элементов матрицы, являющихся четными числами.
Сколько не думал, никак не могу сообразить как это сделать.
Заранее огромное спасибо!!!!!!!!

[Sazary]

Сумма цифр числа N:

Sum := 0;
while N>0 do
 begin
 Sum := Sum + (N mod 10);
 N := N div 10;
 end;

Четность элемента проверяется так:

if N mod 2 = 0 then
 { элемент четный }

Как я понимаю, проблема была только в этом?