Решить биквадратное уравнение, записанное пользователем в указанном файле - Turbo Pascal

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

Написать программу, решающую биквадратное уравнение (ax^4+bx^2+c=0), записанное пользователем в указанном файле.

Программу просто решающую биквадратное уравнение я написать могу, при условии, что переменные вводятся с клавиатуры, но я не знаю как брать их из файла, может кто помочь с этим?

Решение задачи: «Решить биквадратное уравнение, записанное пользователем в указанном файле»

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

program proga;
 uses crt;
 var a,b,c,x1,x2,x3,x4,x5,x6,d:real;
 begin
 writeln('ўўҐ¤ЁвҐ a,b,c');
 readln(a,b,c);
 d:=b*b-4*a*c;
 if d<0 then writeln('га*ў*Ґ*ЁҐ *Ґ Ё¬ҐҐв аҐиҐ*Ё©') else
 begin
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 if (x1<0) and (x2<0) then writeln ('га*ў*Ґ*ЁҐ *Ґ Ё¬ҐҐв аҐиҐ*Ё©') else
 begin
 if x1>=0 then
 begin
 x3:=sqrt(x1);
 x4:=-sqrt(x1);
 write('®вўҐв: ',x3,';',x4,';');
 end;
 if x2>=0 then
 begin
 x5:=sqrt(x2);
 x6:=-sqrt(x2);
 writeln(x5,' ;',x6,'.');
 end;
 end;
 end;
 end.

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

В программе объявлены переменные a, b, c, x1, x2, x3, x4, x5, x6, d типа real.
Строка 'ўўҐ¤ЁвҐ a,b,c' выводит на экран значения переменных a, b, c.
Дробь d=bb-4a*c вычисляет дискриминант для квадратного уравнения.
Если d>=0, то вычисляются корни уравнения x1=((-b+sqrt(d))/(2a)) и x2=((-b-sqrt(d))/(2a)).
Проверяется условие x1<0 и x2<0. Если оба условия выполняются, то выводится сообщение 'гаўҐЁҐ Ґ Ё¬ҐҐв аҐиҐ*Ё©', что означает, что корни уравнения отрицательные.
Если хотя бы одно из условий не выполняется, то вычисляются корни уравнения x3=sqrt(x1) и x4=-sqrt(x1).
Если x1>=0, то вычисляются корни уравнения x5=sqrt(x1) и x6=-sqrt(x1).
Выводится строка '®вўҐв: ', x3, ';', x4, ';'.
Если x2>=0, то выводятся строки '®вўҐв: ', x5, ';', x6, '.'.
Программа заканчивается.