Переделать условие, 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

[nikita182]

 
uses crt;
var
sum,chislo,n,b,min,l,h:integer;
s : string;
begin
clrscr;
h := 0;
min:=9999;
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;
 
 str (chislo, s);
 n:=ord(s[0]);
  if (n mod 2) = 0 then
  h:=h+1;
  
until chislo=0;
writeln ('Summa vseh chisel=',sum);
writeln ('Min element=',min);
writeln('Kol-vo nuzhnix chisel : ',h);
readkey;
end.

так?