Object Pascal "процедуры и функции"

[наташка-ромашка]

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

[Шуваев Павел]

function max(const x,y:integer):integer;
Var buf1,buf2,x1,y1:integer;
Begin
x1:=x; y1:=y;

While x1<>0 do
begin
buf1:=buf1+(x1 mod 10);
x1:=(x1 div 10);
end;

While y1<>0 do
begin
buf2:=buf2+(y1 mod 10);
y1:=(y1 div 10);
end;

if buf1>=buf2 then max:=buf1
else max:=buf2;
End;

функция готова к использованию...

[наташка-ромашка]

Спасибо))) а почему нет edit1, edit2, panel и все такое...?

[Vanta11a]

Потому что функция. Значение, которое она возвращает, может использоваться в программе как угодно.