Запись числа в файл

[tolmik]

вот програмка считывает a, b и с потом считает формулу и должна результат записать в другой файл, только вот почему то вместо числа записывает какие-то иероглифы. Подскажите в чем ошибка

uses
 crt,dos;
 var
  f1:text;
  f2:file of real;
  a,b,c:real;
  i1:longint;
  r1:real;
begin
 clrscr;
 writeln('Программный модуль запущен. N=20 000 000');
 writeln('Для аварийного выхода нажмите любую клавишу');
 assign(f1,'c1.dat');
 reset(f1);

 read(f1,a);
 read(f1,b);
 read(f1,c);
 for i1:=1 to 20000000 do
 begin
   r1:=2*(a-b)/c;
  if (i1 mod 10000)=0 then begin
   gotoxy(1,3);
   writeln(i1);
   writeln(r1:5:2);
  if keypressed then Exit;  end;
 end;

 assign(f2,'out1.dat');
 rewrite(f2);
 write(f2,r1);
 close(f1);
 close(f2);
 writeln('Работа программного модуля успешно завершена');
{ readkey;}
end.