решить с использованием функции! помогите сделать.

[st1m]

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

[Tkirill]

uses crt;
var
x,y:integer;
function max(a,b:integer):integer;
var
n1,n2,b1,b2:integer;
begin
b1:=a;
b2:=b;
n1:=0;
n2:=0;
while b1>0 do
begin
inc(n1);
b1:=b1 div 10;
end;
while b2>0 do
begin
inc(n2);
b2:=b2 div 10;
end;
if n1>n2 then max:=a
else max:=b;
end;
begin
clrscr;
readln(x,y);
writeln(max(x,y));
readln;
end.

[__STDC__]

еще можно введенные числа преобразовывать в строки и сравнивать их длины... попроще будет...
предыдущий алгоритм не нравится из-за наличия двух циклов.. =(

[Min]

если нужно без строк, а чисто на алгебре, то вот:

var a1,a2,len1,len2:integer;
begin
 writeln('vvedite a1,a2:');
 readln(a1,a2);
 len1:=trunc(ln(a1)/ln(10));
 len2:=trunc(ln(a2)/ln(10));
 if(len1=len2) then writeln('a1=a2')
 else
 if(len2>len1) then writeln('a2>a1')
 else
                    writeln('a1>a2');
 readln;
end.

но только условие, что числа целые.

[DM_bite]

А не проще, как сказал уважаемый __STDC__?

program sdd;
var s,s1:string;
    i:integer;
    begin
    ReadLn(s);
     ReadLn(s1);
     if Length(s)>Length(s1) then
      begin
       WriteLn(s);
       end
        else WriteLn(s1);
        end.