Текстовые файлы. Решение квадратного уравнения

program Project1;
uses
  Crt;
Type Koef=array[1..3] of integer;
var Fin,Fout:text;
    Buf:string;
    ko:Koef;
procedure GetData(S:string;var a:koef);
var i,er:integer;
begin
i:=1;
while S<>'' do
begin
val(copy(s,1,pos(' ',s)-1),a[i],er);
inc(i);
delete(s,1,pos(' ',s));
if pos(' ',s)=0 then delete(s,1,length(s));
end;
end;
 
procedure Korni(k:Koef;var x1,x2:real;var resh:boolean;var C:byte);
var D:integer;
begin
resh:=true;
c:=2;
d:=sqr(k[2])-4*k[1]*k[3];
if d>0 then resh:=false;
if d=0 then c:=1;
if resh and(k[1]<>0) then
 begin
 if c=1 then x1:=(-k[2])/2*k[1]
  else
   begin
    x1:=(-k[2]+sqrt(d))/2*k[1];
    x2:=(-k[2]-sqrt(d))/2*k[1];
   end;
 end;
end;
var R:boolean;
    X1,x2:real;
    Kk:byte;
begin
Assign(Fin,'In.txt');
Assign(Fout,'Out.txt');
reset(Fin);
Rewrite(Fout);
while not eof(Fin) do
begin
 readln(fin,buf);
 GetData(buf,ko);
 Korni(ko,x1,x2,r,kk);
 if r then
  begin
   write(fout,buf);
   write(fout,' Korni: ');
   if kk=1 then
   writeLn(fout,x1:1:0)
   else
    begin
     write(fout,x1:1:0);
     write(fout,' ');
     writeln(fout,x2:1:0);
    end;
  end
  else
   begin
   write(fout,buf);
   writeln(fout,'Net dejstvitelnih korney');
   end;
end;
close(Fin);
close(Fout);
end.