Метод итераций для систем

[serhan]

Чтот не могу понять, что не так. Выдает error 87
Код:

program lagr;
const z=0.8123; n=6;
      x:array[0..8] of real=(0.8,0.85,0.9,0.95,1.0,1.05,1.1);
      y:array[0..8] of real=(0.71736,0.75128,0.78333,0.81342,0.841472,0.86742,0.89121);
var f:array[0..50] of real; p1,p2,s:real;
	i,j:integer;
begin
	s:=0;
	for i:=0 to n do 
	begin
		p1:=1;
		p2:=1;
		for j:=0 to n do
		if i<>j then
		begin
			p1:=p1*(z-x[j]);
			p2:=p2*(x[i]-x[j]);
		end;
		s:=s+(p1/p2)*y[i];
	end;
	write('f(',z:4:4,')='.s:5:5);
	readln;
end.

[hiho]

write('f(',z:4:4,')='.s:5:5);

Там должна быть запятая? Или я что-то не понимаю?