считывание из файла Опции

[abobo]

извеняюсь за ламерство ..но я никак не могу догнать что у меня нетак в программе..программа считывает из файла все подряд символы.. и собственно должна тормозиться после того как обнаружит EOF но почему то программа считывает только 1/10 часть файла и останавливаеться.. никаких ошибок вроде не выдает.. я узнал какой символ был последним..ето стрелочка показывающая направо.. и код ASCII ее почему то 132 хотя по таблице там совсем другой символ .. пытался посмотреть ето место в файле но ни стрелку , ни тот символ какой должен быть под кодом 132 тоже не нашел..подскажите пожалуйста.. :molitva:

[abobo]

uses dos,crt;
var c,c2,c3,x,x1,x2,xf,yf,xn,y,y1,y2,yn:integer;
    symbol:char;
    ch:integer;
    file_name:string;
    a:file of char;

procedure openfile(file_name:string);
begin
  assign(a,file_name);
  reset(a);
end;

procedure reading;
begin
  xf:=0;
  yf:=0;
  repeat
  gotoxy(xf,yf);
  if xf = 81 then
  begin
    yf:=yf+1;
    xf:=0;
  end
  else
  begin
    read(a,symbol);
    xf:=xf+1;
  end;
  until EOF;
end;

begin
  x:=0;
  y:=0;
  openfile('black.mp3');
  reading;
  close(a);
  textcolor(15);
  writeln(ch,' : ',symbol);
  write(xf,' : ');
  write(yf );
  readln;
end.