Как вывести ответ в текстовый файл

Question

Есть программа для подсчёта корней квадратного уравнения написанная в Free Pascal. И текстовый файл results.txt 
Как оформить программу дабы ответ выводился в текстовый файл. 
Вот программа: 
 
var a,b,c,D,x1,x2:real; 
begin 
read(a,b,c); 
D:=sqr(b)-(4*a*c); 
x1=(-b-sqrt(D))/(2*a); 
x2=(-b+sqrt(D))/(2*a); 
If D>0 then write(x1,x2); 
If D<0 then write('корней нет!'); 
If D=0 then write(x1); 
end. 
Да кстати кто знает как сделать, чтобы надпись "корней нет" выводилась? А то у меня если дискриминант отрицательный выводиться слово - еррор(и прочая бяка). 
Заранее спасибо.

Юлия · Accepted Answer

Уж скорее так: 
 
var a,b,c,D,x1,x2:real; 
f:textfile; 
begin 
read(a,b,c); 
D:=sqr(b)-(4*a*c); 
Assign(f,'имя файла'); 
Rewrite(f); 
If D<0 then write(f,'корней нет! ') 
else 
begin 
x1=(-b-sqrt(D))/(2*a); 
If D=0 then write(f,x1); 
x2=(-b+sqrt(D))/(2*a); 
If D>0 then write(f,x1,x2); 
end; 
Closefile(f); 
end.

Юрий Жабров · Answer

var a,b,c,D,x1,x2:real; 
 f:textfile; 
begin 
read(a,b,c); 
D:=sqr(b)-(4*a*c); 
x1=(-b-sqrt(D))/(2*a); 
x2=(-b+sqrt(D))/(2*a); 
Assign(f,'имя файла'); 
Rewrite(f); 
If D>0 then write(f,x1,x2); 
If D<0 then write(f,'корней нет! '); 
If D=0 then write(f,x1); 
Closefile(f); 
end. 
 
насчет отрицательного дискриминанта сделайте проверку на отрицательное число, выведите надпись и сделайте комманду exit;

Елена Мяушкина · Answer

Слабо почитать как с файлами работать в паскале?

Diana Adamiya · Answer

Сначала проверяешь дискриминант, а потом, в той ветке, где неотрицательный - считаешь корни. 
А про файлы IRQ ответил.