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

function Count(n:integer):integer;
var
  temp,c:integer;
begin
  temp:=n;
  c:=0;
  while temp<>0 do
  begin
    inc(c);
    temp:=temp div 10
  end;
  Count:=c
end;
var
  n1,n2:integer;
begin
  readln(n1,n2);
  if Count(n1)>Count(n2) then
    writeln('Â ïåðâîì')
  else
    if Count(n1)<Count(n2) then
      writeln('Âî âòîðîì')
    else
      writeln('Ðàâíû')
end.

var
 n1,n2:integer;
 s1,s2:string;
begin
write('n1=');
readln(n1);
write('n2=');
readln(n2);
str(abs(n1),s1);
str(abs(n2),s2);
if length(s1) > length(s2) then writeln('bolshe v pervom chisle')
 else if length(s1) = length(s2) then writeln('porovnu')
   else writeln('bolshe vo vtorom chisle');
readln;//pauza. nazhat' enter dlja vyhoda
end.

var
 n1, n2: Longint;
Begin
 Readln(n1);
 Readln(n2);
 While (n1<>0)and(n2<>0) do
  Begin
   n1:=n1 div 10;
   n2:=n2 div 10;
   if (n1=0)and(n2=0) then Writeln('Одинаково') else
   if n2=0 then Writeln('В первом') else
   if n1=0 then Writeln('Во втором');
  End;
End.