помогите срочно pascal

должно быть while

function CountDigit(a: integer):integer;

var s: string;

begin

s:=inttostr(a);

CountDigit:=length(s);

end;

var s,ll,i,n,count: integer;

begin

write('Введите N: ');

readln(n);

count:=CountDigit(n);

ll:=0;

s:=0;

while (ll<count div 2) do

begin

i:=n mod 10;

s:=s+i;

n:=n div 10;

inc(ll);

end;

writeln('Сумма равна: ',s);

readln;

end.