Найти ошибку в программа интерполяции

[president_ml]

Люди спасите пожалуйста, просто горю. интерполяция по лагранжу
вот каркас программы, подскажитте что не так.
Заранее спасибо

program z1;
type vector=array[1..10] of real;
var n,i,j: integer; x,y:vector; z,pn:real;
procedure inter(n:integer; x:vector; y:vector; z:real; var pn:real);
var i,j:integer; p:real;
begin
 pn:=0;
 for i:=0 to n do
 begin
  p:=1;
  for j:=0 to n do
   if j<>i then p:=P*(z-x[j])/(x[i]-x[j]);
  Pn:=Pn+y[i]*P;
  end;
end;
Begin    write('n=');readln(n);
for j:=0 to n do begin;
write('x',j,'=');readln(x[j]);
write('y',j,'=');readln(y[j]);
end;
inter(n,x,y,z,pn);
writeln('Pn=',Pn:0:6);
END.