program Newtoon;

uses crt;

const
n = 2;
Nn = (n-1)*n/2;

function Nuton(p: array of double; n: integer; x: array of double; Xx: double):double;
var
s:double;
i:integer;
begin
s:=p[n-1];

for i:=n-2 downto 0 do
begin
s:=p[i]+(Xx-x[i])*s;
end;
Nuton:=s;
end;

procedure Nuton1(x: array of double;y: array of double;n:integer;p: array of double);
var
j,m,k,i,l: integer;

begin
for j:=0 to n-1 do
begin
p[j]:=(y[j+1]-y[j])/(x[j+1]-x[j]);
write(p[j],' ');
end;
m := n-1;
l:=2;

for i:= n-2 downto 1 do
begin
k:=0;
for j:= 1 to i do
begin
p[m]:=(p[m-i]-p[m-i-1])/(x[k+l]-x[k]);
inc(m);
inc(k);
end;
i:=i+1
end;

j:=0;
for i:=1 to n-1 do
begin
y[i]:=p[j];
j:=j+(n-i);
end;
end;


var
x: array [1..5] of double;
y: array [1..n] of double;
i: integer;
p: array [1..n] of double;
z: double;
begin
for i:= 0 to n do
begin
y[i] := 1+2*x[i]+3*x[i]*x[i]+4*x[i]*x[i]*x[i]+5*x[i]*x[i]*x[i]*x[i];
end;
z:= 1.5;
Nuton1(x,y,n,p);
writeln(Nuton(y,n,x,z),' ', 1+2*z+3*z*z+4*z*z*z+5*z*z*z*z);
readln;
end.



выдает ошибку встроке i:=i+1 [Error] Project2.dpr(46): Assignment to FOR-Loop variable 'i'