Нахождение корня методом хорд. Программа не компилируется.

Program metod xord
var p:array[1..3] of real;
a,b,c,e,el:real;
n,i:integer;
function f(x:real):real;
var r,q,y:real;
k,nl:integer;
begin
y:=x; nl:=0;
if x<11.0 then begin nl:=round(10.0-x);
f:=4x^2+12x/x+4/x^2=47
{writeln('q=',f:6:3,' x=' ,x:6:3);}
for k:=0 to nl=1 do q:=q-1,0/(x+k);
end;
function sgn(x:real);integer;
begin sgn:=0
if x<0.0 then sgn:=-1
if x>0.0 then sgn:=1;end;
procedure chord(var a,b,x,e,el:real);
var s:integer;f1,f2,r,x1:real;
begin
x1:a;f1:=f(a);f:=sgn(f1);f2:=f=f(b);x:=b;
writeln('a=',a:2.5:-5.5,'f(a)=',f1:2.5:-5.5,'b=',b=2.5:-5.5,'f(b)=',f2:2.5:-5.5);
while abs(x-x1)>e do begin
x1:=x;x:=a-(b-a)/(f2-f1)*f1:r:=f(x)
writeln('x=',x:1,3;f(x=;r:6:3);
while abs(x-x1)>e do begin
x1:=x:=;x:=a-(b-a)/(f2-f1)*f1;r:=f(x)
writeln('x=',x:1,3;f(x=;r:6:3);
if abs(r)<e1 then exit;
if sgn (r)=s then begin a:=x;f1:=r end;
else begin b:=x; f2:=r:end
end
end;
begin repeat
write(a,b,e,el,?);readln(a,b,e,el);
write('skolko parametrov?'); readln(n);
for i:=1 to n do begin
write('p(',i,'),?');readl(p[i]);
writeln('p(',i,')=',p[i]:1:3);end;
chord(a,b,x,e,el);writeln('rezultat x=',x:10;3);
until false
end.

var a, b, c, e: real; {нижний и верхний интервалы, точность}
    q: string; {для отвера на выход из программы}
 
function f(x:real):real; {функция}
begin
  f := 4 * x * x + 12 * x + 12 / x + 4 / x / x - 47 {сюда можно вставить свою}
end;
 
begin
  repeat
    repeat
      write('a = '); readln(a);
      write('b = '); readln(b);
      if (a >= b)
        then writeln('Error: invalid range')
        else if (f(a) * f(b) > 0) then writeln('Error: no square or > 1 square in range');
    until (a < b) and (f(a) * f(b) <= 0);
    repeat
      write('e = '); readln(e);
      if e <= 0 then writeln('Error: invalid precision')
    until e > 0;
    c := a;
    while abs(f(c)) > e do
      begin
        c := b - f(b) * (a - b) / (f(a) - f(b));
        if ((f(a) < 0) and (f(c) < 0)) or ((f(a) > 0) and (f(c) > 0))
          then a := c
          else b := c
      end;
    writeln('Square: x = ', c, ', f(x) = ', f(c));
  write('Exit? '); readln(q)
  until q = 'y'
end.

var a, b, c, e: real; {нижний и верхний интервалы, точность}
    q: string; {для отвера на выход из программы}
 
function f(x:real):real; {функция}
begin
  f := 4 * x * x + 12 * x + 12 / x + 4 / x / x - 47 {сюда можно вставить свою}
end;
 
begin
  repeat
    repeat
      write('a = '); readln(a);
      write('b = '); readln(b);
      if (a >= b)
        then writeln('Error: invalid range')
        else if (f(a) * f(b) > 0) then writeln('Error: no root or > 1 roots in range');
    until (a < b) and (f(a) * f(b) <= 0);
    repeat
      write('e = '); readln(e);
      if e <= 0 then writeln('Error: invalid precision')
    until e > 0;
    c := (b + a) / 2;
    repeat
      if ((f(a) < 0) and (f(c) < 0)) or ((f(a) > 0) and (f(c) > 0))
        then a := c
        else b := c;
      c := b - f(b) * (a - b) / (f(a) - f(b))
    until (abs(c - a) < e) or (abs(b - c) < e);
    writeln('Root: x = ', c);
  write('Exit? '); readln(q)
  until q = 'y'
end.

var a, b, c, e: real; {нижний и верхний интервалы, точность}
    q: string; {для отвера на выход из программы}
 
function f(x:real):real; {функция}
begin
  f := 4 * x * x + 12 * x + 12 / x + 4 / x / x - 47 {сюда можно вставить свою}
end;
 
begin
  repeat
    repeat
      write('a = '); readln(a);
      write('b = '); readln(b);
      if (a >= b)
        then writeln('Error: invalid range')
        else if (f(a) * f(b) > 0) then writeln('Error: no root or > 1 roots in range');
    until (a < b) and (f(a) * f(b) <= 0);
    repeat
      write('e = '); readln(e);
      if e <= 0 then writeln('Error: invalid precision')
    until e > 0;
    while abs(b - a) > e do
      begin
      c := b - f(b) * (a - b) / (f(a) - f(b));
      if ((f(a) < 0) and (f(c) < 0)) or ((f(a) > 0) and (f(c) > 0))
        then a := c
        else b := c;
      if c - a < e then b := (b + c) / 2;
      if b - c < e then a := (a + c) / 2
    end;
    writeln('Root: x = ', c:0:6, ',  f(x) = ', f(c):0:18);
  write('Exit? '); readln(q)
  until q = 'y'
end.