Табулирование и Лагранж

[Guzik]

у меня есть 2 программы: табулирование функции и метод Лгранжа,надо совместить их в одну,т.е сначала надо провести табулирование а потом Лагранжа,не получается сделать это...
Табулирование:
{Табулирование функции y=f(x) на [a,b]}
Function f(x:Real):Real;
begin
f :=x*x-sin(pi*x);
end;
Var
a,b,h,x,y :Real; n :Integer;
Begin
a:=0; b:=3;
n:=3;
h:=(b-a)/n;
WriteLn('--------------------------');
WriteLn('| X | |Y |');
WriteLn('|----------|-------------|');
x:=a;
While x<=b Do
begin
y:=f(x);
WriteLn('| ', x:5:2, ' | ',y:5:2, ' |');
x:=x+h;
end;
ReadLn;
End.

Лагранжа:
Function Ln (x :Real) :Real;
var i,j :Integer; S,P :Real;
Begin
S:=0; {сумма}
for i:=0 to n do begin
P:=1; {произведение}
for j:=0 to n do begin
if i<>j then
P := P *(x-X_mas[j])/(X_mas[i]-X_mas[j]);
end;
S := S + P*f(X_mas[i]);
end;
Ln:=S;
End;