В файл записываются непонятные символы - PascalABC.NET

Формулировка задачи:

В файл 'KEK' выводит непонятные символы. Вроде что-то знал про то, что если что-то не сделать то будет в место желаемого что-то такое: ,Л‹Л®Ћ№?јТ=#яmЙ?4єє•НйТ?kg+й:мШ?рKtи®Ю?ZAҐЌв?№Finќд?НюїВ”фж?AЁ]˜й?о ЏTнк? Вот код:

program listing_6_23;
var
  A:file of real;
  B:real;
  I:integer;
begin
  assign(A,'D:\KEK.txt');
  rewrite(A);
  for I:=1 to 10 do
   begin
     B:=sin(0.1*I);
     write(A,B);
   end;
  close(A);
end.

Я всё понял, господа! Я просто невнимательная собака, которая не обращает на расширения файлов в книге! Расходимся!

Решение задачи: «В файл записываются непонятные символы»

Листинг программы

program listing_6_23;
var
  A:file of integer;
  B,I:integer;
begin
  assign(A,'KEK'); //в папку с програмой
  rewrite(A);
  for I:=1 to 10 do
   begin
     B:=random(50);
     write(A,B);
   end;
  writeln('Содержание файла KEK');
  reset(A);
  while not eof(A) do
   begin
    read(A,B);
    write(B:3);
   end;
  close(A);
end.

Объяснение кода листинга программы

Создаётся файл с именем KEK в папке с программой.
Файл открывается на запись.
В цикле от 1 до 10 записываются в файл случайные числа от 0 до 49.
Выводится сообщение о содержимом файла KEK.
Файл открывается на чтение.
Пока не достигнут конец файла, считывается очередная запись и выводится на экран первые 3 символа.
Файл закрывается.