Определить, в каком из данных двух чисел больше цифр

program sad;
 uses crt;
 var a,b,c,d,e,f,g,h:integer;
procedure vi41;
 begin
 b:=0;
 while e<>0 do
 begin
 a:=b+1;
 c:=a;
 e:=e div 10;
 end;
 g:=0;
 while f<>0 do
 begin
 d:=g+1;
 h:=d;
 f:=f div 10;
 end;
 end;
 
begin
 writeln('');
 writeln('Введите 2 числа');
 readln(e,f);
 vi41;
 if c=h then writeln ('в первом числе больше цифр чем во втором ') else writeln ('во втором числе больше цифр чем в первом ');
end.

program sad;
uses crt;
var a,b,c,d,e,f,g,h:integer;
procedure vi41;
begin
b:=0;
while e<>0 do
begin
e:=e div 10;
b:=b+1;
end;
g:=0;
while f<>0 do
begin
f:=f div 10;
g:=g+1;
end;
end;
 
begin
writeln('');
writeln('Ââåäèòå 2 ÷èñëà');
readln(e,f);
vi41;
if b>g then writeln ('â ïåðâîì ÷èñëå áîëüøå öèôð ÷åì âî âòîðîì ') else
if b<g then
writeln ('âî âòîðîì ÷èñëå áîëüøå öèôð ÷åì â ïåðâîì ')
else
writeln('Îäèíàêîâî');
end.