Переделать условие, help me Опции

[Slash]

Дан код программы ! мне нужно изменить условие этого кода !
тут условие сумма цифр числа делиться на 5 а мну нужно число состоит из чётного количества цифр

uses crt;
var
sum,chislo,n,b,min,l,h:integer;
begin
clrscr;
min:=99999;
sum:=0;
l:=0;
repeat
writeln ('Vvedite chislo');
read (chislo);
sum:=sum+chislo;
n:=abs(chislo);
if chislo<>0 then
if chislo<min then min:=chislo;
repeat
b:=n mod 10;
n:=n div 10;
l:=l+b;
until n=0;
if L mod 5=0 then h:=h+1;
until clo=0;
writeln ('Summa vseh chisel=',sum);
writeln ('Min element=',min);
writeln('Kol-vo chisel delashihsa na 5: ',h);
readkey;
end.

help me

[Dj.Boom]

проверить четность это элементарно :

Код

uses crt;
var
s : string;
n : integer;
begin
n := 0;
clrscr;
readln(s);
  n:=ord(s[0]);
if (n mod 2) = 0 then
  writeln ('da')
else
  writeln ('net');
readln;
end.