Помогите перевести код с паскаля на PHP

ct:=ct*(x-x[j]); в паскале и $ct=$ct*($x[$i]-$x[$j]); в паскале отсутствует индекс

как бы
for i:=1 to n do R:=0;
for i:=1 to n do
begin
ct:=1;pt[1]:=1;k:=1;
for j:=1 to n do
if ij then
begin
ct:=ct*(x-x[j]);
pt[k+1]:=1;
if k>1 then
for m:=k downto 2 do
pt[m]:=pt[m-1]-pt[m]*x[j];
pt[1]:=-pt[1]*x[j];
k:=k+1;
end;
u:=y/ct;
for m:=1 to n do
r[m]:=r[m]+pt[m]*u;
end;

Пытался самостоятельно "перевести" его на PHP:

for ($i = 1; $i = 2 ; $m--)
{
$pt[$m]=$pt[$m-1]-$pt[$m]*$x[$j];
}
$pt[1]=-$pt[1]*$x[$j];
$k=$k+1;
}
}
}
$u=$y[$i]/$ct;
for ($m = 1; $m