(Pascal) Hogyan tudok beszurni egy fuggvenyt a foprogramba? Vagy hogy jelenik meg a foprogramban a fuggveny eredmenye?

Tudom hogy valahogy igy func1:=valami;, de nem tudom hogy, a foprogramot hogy kezdjem el?

Itt egy/a fuggveny

Function LegnagyobbSzamjegy (Szam:longint):longint ;

Var Eredmeny : longint ;

Szamjegy : longint ;

Begin

Eredmeny:=0;

while Szam>0 do begin

Szamjegy:=Szam-(Szam div 10)*10;

Szam:=trunc (Szam/10);

if Szamjegy>Eredmeny then Eredmeny:=Szamjegy;

end ;

LegnagyobbSzamjegy:=Eredmeny;

End ;