Дописать к каждой строке файла результаты решения соответствующего уравнения и сохранить их в новом файле

procedure resh(a,b,c:real;var s:string);
var x1,x2,d:real;
    s1,s2:string;
begin
if (a=0)and(b=0)and(c=0) then s:='x-любое число'
else if (a=0)and(b=0)and(c<>0) then s:='действительных корней нет'
else if (a=0)and(b<>0)and(c=0) then s:='x=0'
else if (a=0)and(b<>0)and(c<>0) then
 begin
  x1:=-c/b;
  str(x1:0:2,s1);
  s:='x='+s1
 end
else if (a<>0)and(b=0)and(c=0) then s:='x1=x2=0'
else if (a<>0)and(b=0)and(c<>0) then
 begin
  if -c/a<0 then s:='действительных корней нет'
  else
   begin
    x1:=sqrt(-c/a);
    x2:=-x1;
    str(x1:0:2,s1);
    str(x2:0:2,s2);
    s:='x1='+s1+'   x2='+s2;
   end
 end
else if(a<>0)and(b<>0)and(c=0) then
 begin
  x2:=-b/a;
  str(x2:0:2,s2);
  s:='x1=0 x2='+s2
 end
else
 begin
  d:=b*b-4*a*c;
  if d<0 then s:='действительных корней нет'
  else if d=0 then
   begin
    x1:=-b/(2*a);
    str(x1:0:2,s1);
    s:='x1=x2='+s1;
   end
  else
   begin
    x1:=(-b-sqrt(d))/(2*a);
    x2:=(-b+sqrt(d))/(2*a);
    str(x1:0:2,s1);
    str(x2:0:2,s2);
    s:='x1='+s1+'   x2='+s2;
   end
 end
end;
var f1,f2:text;
    a,b,c:real;
    s:string;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
while not eof(f1) do
 begin
  read(f1,a,b,c);
  resh(a,b,c,s);
  writeln(f2,a,' ',b,' ',c,' ',s)
 end;
close(f1);
close(f2)
end.