Crap

program balances(infile,outfile);

   { This is a program that finds the balances for the next 10 years
      Name  : Leonidas Georgiou
      class : 1CS                                                   }

Var
    balance , rate  , value    : real;
    infile  , outfile          : text;
    count                      : integer;

Begin

  count:=0;
   while count <= 10 do
    begin
     assign (infile ,'c:\BR.txt'     );
     assign (outfile,'c:\results.txt');
     reset  (infile );
     rewrite(outfile);

      while (not eof(infile)) do
       begin
        readln (infile,balance,rate);

        value := balance+((rate/100)*balance);
        writeln (outfile,'BALANCE     RATE      Balcane for the next ten years');
        writeln (outfile);
        writeln (outfile,balance:3:1,'        ',rate:3:1,'      ',value:3:1);
      end;
    count:=count+1;
   end;
close (infile );
close (outfile);
end.