AJUDA PASCAL

[benihime]

Não estou conseguindo arrumar os erros depois que compilo, alguém poderia me ajudar?

att

B.

Program mnewtonraphson;

uses crt;

var x0,x1,erro,eps: real;

k: interger;

espera: char;

function f (x: real):real;

begin

f:= (4x+2x^2+6);

end;

function df (x: real):real;

begin

df:=(4+2x);

end;

begin

writeln ('Método de Néwton');

writeln ('Solução Inicial');

readln (x0);

writeln ('Digite a precisao');

readln(eps);

writeln('x= ', x0:6:6);

erro:=1;

k:=0;

while

erro >= eps do

begin

x1:= x0-(f/df);

writeln('x= ', x1:6:6);

erro:= abs ((x1-x0)/x1);

x0:=x1;

k:= k+1;

end;

writeln (' Solucao é: ', x0:6:6);

writeln('O numero de iterações é: ',k);

writeln(' Pressione enter para continuar') ;

end.