ПОМОГИТЕ! Надо решить задачу по програмированию!

Решение есть и оно вроде правильное, но почему-то не получается. Вот сама задача:
С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить сумму всех четных цифр данного числа.
Вот Код:
program A2;
var t,x:string; l,s,z,I,cod:integer;
begin
Writeln('Введите текст');
Readln(t);
l:=length(t);
s:=0;
for i:=1 to l do begin
x:=Copy(t,I,l);
Val(x,z,cod);
if (cod=0) and (z mod 2=0) then s:=s+z
else writeln ('При переводе',i,' символа обнаружена ошибка');end;
writeln ('Сумма чётных цифр исходного числа = ');
end.
Что не так?