Не считывает из файла.Disk read error

[yzen]

type 
           tablo=record
           name:string[10];
           tim:integer;
           coin:integer;
           end;

procedure records;
var key:char;
    y: integer;
    f: file of tablo;
    om:tablo;
    s:string;
begin
setcolor(blue);
setfillstyle(2,blue);
bar(200,100,450,400);
setcolor(red);
setfillstyle(1,red);
bar(220,120,430,380);
setcolor(black);
outtextxy(225,127,'Name');
outtextxy(300,127,'Coins');
outtextxy(360,127,'Time');
line(220,135,430,135);
line(290,100,290,380);
line(350,100,350,380);
y:=140;
assign(f,'records.ble');
reset(f);
while not eof(f) do begin
                    read(f,om);
                    outtextxy(225,y,om.name);
                    str(om.coin,s);
                    outtextxy(300,y,s);
                    str(om.tim,s);
                    outtextxy(360,y,s);
                    y:=y+20;
                    end;

repeat
key:=readkey;
until key=#13;
menu(name);
end;

Выдает ошибку на строчке read(f,om);

Вот так заполняю:

program dno;
uses crt;
type tablo = record
             name:string[10];
             tim:integer;
             coin:integer;
             end;
var f:file of tablo;

procedure prov(ff:file of tablo);
var omg:tablo; i,t:integer;
a:string;
begin
assign(ff,'records.ble');
rewrite(ff);
                  omg.name:='Andrey';
                  omg.tim:=245;
                  omg.coin:=21345;
                  write(ff,omg);
a:='abc';
t:=5;
for i:=2 to 10 do begin
                  omg.name:=a;
                  omg.tim:=t;
                  omg.coin:=t;
                  write(ff,omg);
                  end;
close(ff);
begin
prov(f);

end.

если в tablo=record перемнный tim и coin сделать string, то считывает все норм.
Но дальше мне нужно сравнить их с целым числом, пробовал так
t:integer;
......
Int(omg.tim,t);
но не как не работает

И как сделать хз уже

[Serge_Bliznykov]

на 99% проблема связана с тем, что в одной программе (которая создавала файл) тип tablo был описан НЕ так, как в той программе, которая этот файл пытается прочитать.

сделайте следующее.
1) удалите файл records.ble
2) убедитесь, что описания типов ПОЛНОСТЬЮ совпадают! (а лучше скопируйте copy-paste описание типа tablo)
3) убедитесь, что EXE-шники программ находятся в одном и том же каталоге - т.е. убедитесь, что обе программы работают с одним и тем же файлом records.ble

[Poma][a]

А так же желательно озвучить Ваш компилятор, т.к. у меня всё работает! (Free Pascal)
(код)

[yzen]

Все, спасибо)
Разобрался.
Я затупок))
Программу делаю в Turbo pascal , а файл заполнял в программе которую сделал в Pascal ABC.

Видимо кодировка не много разная. Т.к. в абц считывало все норм, а там не как.