Блок-схема, метод дихотомии - PascalABC.NET

Формулировка задачи:

Составить в Паскале программу по данной блок-схеме методом дихотомии При a:=-0,6, b:=-0.27, e:=0,0001 (a,b,e вводятся с клавиатуры) F1=X^4-X-1=0. Исправьте ,пожалуйста, ошибки

program massiv;
var a,b,c,e:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите e');
readln(e);
c:=(a+b)/2;
if c*a<0 then 
b:=c
else 
a:=c;
if abs(a-b)<e then 
writeln('c',abs(a-b)) 
else c:=(a+b)/2;
while abs(a-b)<e do
begin
c:=(a+b)/2;
end;
write('C = ',c);
end.

Решение задачи: «Блок-схема, метод дихотомии»

Листинг программы

function f(x:real):real;
begin
f:=x*x*x*x-x-1;
end;
var a,b,c,e:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите e');
readln(e);
repeat
  c:=(a+b)/2;
  if f(c)*f(a)<0 then b:=c else a:=c;
until abs(a-b)<e;
write('C = ',c);
end.

Объяснение кода листинга программы

Программа запрашивает у пользователя значения переменных a, b, e и сохраняет их в соответствующие переменные.
Пока разница между значениями a и b больше заданной точности e, выполняется следующий шаг.
Вычисляется среднее арифметическое a и b и результат сохраняется в переменную c.
Вычисляется значение функции f(x) для значения c и значение функции f(x) для значения a.
Если знак этих двух значений разный, то значение переменной a заменяется на значение переменной c.
Если знаки этих двух значений одинаковы, то значение переменной b заменяется на значение переменной c.
Выполняется шаг 2.
Когда разница между значениями a и b меньше или равна e, программа завершается и выводит значение переменной c.