Опять ошибка(Pascal)

[k4k7u3]

Подскажите пожалуйста почему возле последнего end'a с точкой, светит ошибку ''Ожидалась ';''????
program lab_1;
var a,b,c,y,y1eps,x1,x:real;i:integer;
function f(x:real):real;
begin
f:=(x*x*x*x)-(45*x*x*x)+(593*x*x)-(1731*x)-6210;
end;
function fsh(x:real):real;
begin
fsh:=(12*x*x-270*x+1186);
begin
i:=0;
eps:=0.0001;
writeln ('Введите крайний левый интервал');
readln (a);
writeln ('Ведите крайний правый интервал');
readln (b);
y:=f;
y1:=fsh;
if y*y1 > 0 then
begin
repeat
x:=(b-(f(b)*(a-b))/(f(a)*f(b)));
b:=x;
x1:=(b-(f(b)*(a-b))/(f(a)*f(b)));
until
Abs((x-x1)<eps);
writeln('x',i+1,'=',((b-(f(b)*(a-b))/(f(a)*f(b)))):2:4);
end
else
begin
repeat
x:=(a-(f(a)*(b-a))/(f(b)*f(a)));
a:=x;
x1:=(a-(f(a)*(b-a))/(f(b)*f(a)));
until
Abs((x-x1)<eps);
writeln('x',i+1,'=',((b-(f(b)*(a-b))/(f(a)*f(b)))):2:4);
end;
readln;
end.

[whatever]

Потому, что программы надо писать в нормальном виде

program lab_1;
var
  a,b,c,y,y1eps,x1,x:real;  //Кстати, запятую забыл
  i:integer;

 function f(x:real):real;
  begin
     f:=(x*x*x*x)-(45*x*x*x)+(593*x*x)-(1731*x)-6210;
   end;

 function fsh(x:real):real;
   begin
     fsh:=(12*x*x-270*x+1186);
       begin
         i:=0;
         eps:=0.0001;
         writeln ('Введите крайний левый интервал');
         readln (a);
         writeln ('Ведите крайний правый интервал');
         readln (b);
         y:=f;
         y1:=fsh;
         if y*y1 > 0 then
           begin
             repeat
               x:=(b-(f(b)*(a-b))/(f(a)*f(b)));
               b:=x;
               x1:=(b-(f(b)*(a-b))/(f(a)*f(b)));
             until Abs((x-x1)<eps);//А тут скобки неправильно
             writeln('x',i+1,'=',((b-(f(b)*(a-b))/(f(a)*f(b)))):2:4);
           end
         else
           begin
             repeat
               x:=(a-(f(a)*(b-a))/(f(b)*f(a)));
               a:=x;
               x1:=(a-(f(a)*(b-a))/(f(b)*f(a)));
             until Abs((x-x1)<eps);//И тут тоже
             writeln('x',i+1,'=',((b-(f(b)*(a-b))/(f(a)*f(b)))):2:4);
           end;
     readln;
   end;

И все сразу стало понятно.
P.S. Если не понял - код я не менял. Какбэ намекаю, что тело программы не написано.