Pascal комбинированные типы

[Rus 47]

Здорова всем.
такая проблема:
есть две программы, одна из которых создаёт файл, а другая его просматривает.
Создал комбинированный тип с переменными, которые записываются данные. Хочу сделать массив - тоесть чтобы записать несколько значений. Вроде создался но вторая программа при попытке её запустить пишет disc read error что делать?
Хотя если массивы не делать и убрать всякие repeat'ы и for'ы то всё в порядке.
Первая программа:

uses crt;

type
abonent = record
contin: integer;
ppmor, ppaft, ppeve, ppnig, svmor, svaft, sveve, svnig: real;
end;

var
db: file of abonent;
myabonent: array [1..100] of abonent;
newzap,x:integer;

begin
clrscr;
x:=0;
assign(db, 'c:\mydb.dat');
{$I-}reset(db);
if ioresult<>0 then
rewrite(db);
seek(db,0);
repeat
inc(x);
writeln('Введите цену, действующую с понедельника по пятницу для разного времени суток');
writeln('');
writeln('Утро 06:00 - 12:00');
writeln('');
readln(myabonent[x].ppmor);
writeln('');
writeln('День 12:00 - 18:00');
writeln('');
readln(myabonent[x].ppaft);
writeln('');
writeln('Вечер 18:00-00:00');
writeln('');
readln(myabonent[x].ppeve);
writeln('');
writeln('Ночь 00:00-06:00');
writeln('');
readln(myabonent[x].ppnig);
writeln('');
writeln('Введите цену, действующую с субботы по воскресенье для разного времени суток');
writeln('');
writeln('Утро 06:00 - 12:00');
writeln('');
readln(myabonent[x].svmor);
writeln('');
writeln('День 12:00 - 18:00');
writeln('');
readln(myabonent[x].svaft);
writeln('');
writeln('Вечер 18:00-00:00');
writeln('');
readln(myabonent[x].sveve);
writeln('');
writeln('Ночь 00:00-06:00');
writeln('');
readln(myabonent[x].svnig);
writeln('');
writeln('Введите продолжительность разговора (CEK.)');
writeln('');
readln(myabonent[x].contin);
write(db, myabonent[x]);
writeln ('Добавить новую запись?');
readln (newzap);
if newzap=0 then
break;
until x>100;
close(db);
readkey;
end.

вторая:

uses crt;
type
abonent = record
ppmor, ppaft, ppeve, ppnig, svmor, svaft, sveve, svnig: real;
contin: integer;
end;
var
db: file of abonent;
myabonent: array[1..100] of abonent;
code,x:integer;
begin
clrscr;
assign(db,'c:\mydb.dat');
reset(db);
code := IOresult;
if code<>0 then begin
writeln ('Ошибка при открытии файла');
case code  of
2 : write('Файл не найден');
152 : write('Маршрут не найден');
5 : write('Запрет доступа к файлу');
12 : write('Некорректный код доступа к файлу');
end;
readkey;
exit;
end
else
x:=1;
readkey;
seek(db,0);
for x:=1 to 3 do begin
read(db, myabonent[x]);
writeln ('Понедельник-пятница');
writeln('');
write (' Утро ');
writeln(myabonent[x].ppmor:2:2,' руб. | ');
write (' День ');
writeln(myabonent[x].ppaft:2:2,' руб. | ');
write ('Вечер ');
writeln(myabonent[x].ppeve:2:2,' руб. | ');
write (' Ночь ');
writeln(myabonent[x].ppnig:2:2,' руб. | ');
writeln('');
writeln ('Суббота-воскресенье');
writeln('');
write (' Утро ');
writeln(myabonent[x].svmor:2:2,' руб. | ');
write (' День ');
writeln(myabonent[x].svaft:2:2,' руб. | ');
write ('Вечер ');
writeln(myabonent[x].sveve:2:2,' руб. | ');
write (' Ночь ');
writeln(myabonent[x].svnig:2:2,' руб. | ');
writeln('');
write ('Продолжительность (CEK.) ');
writeln(myabonent[x].contin,'| ');
end;
close(db);
readkey;
{$i+}
end.

файлы прилагаются

[puporev]

Не знаю что у Вас происходит, но у меня нормально открывает файл и выводит информацию на экран.

[Rus 47]

Хорошо...а с чем может быть связана ошибка disc read error?

[XeN0N]

В универе у меня была такая ошибка потому что пользователю не разрешалось изменять отдельные папки. Или возможно адрес некорректен
вместо c:\mydb.dat
попробуй
c:\\mydb.dat
или
c://mydb.dat

как получится

From Stilet: Паскаль и Си весчи разные и пути в них по разному пишутся.

[puporev]

Попробовал прочитать файл в первой программе, все нормально. После этого попробовал прочитать второй, выкинуло эту же ошибку. Убрал из первого файла возможность читать, вторая программа стала открывать нормально, но выдает какую-то чушь, совсем не то, что вводил. Короче надо разбираться.
А ошибка видимо все таки Паскалевская
100 Disk read error (Ошибка чтения с диска).
Генерируется процедурой READ в типизированном файле в случае, если Вы пытаетесь осуществить считывание из полностью прочитанного файла.
Хотя нельзя исключить и другое ее происхождение. Ведь у Вас в первой программе не предусмотрено чтение, это я экспериментировал.

Вот, выкинул из программ всякую чушь прошлого века, которую никогда не пишу, видимо что-то не так написано, и все нормально работает. Проверь у себя там, где я выкинул.

[Rus 47]

puporev проверил, та же самая ошибка...

[puporev]

Значит вероятно дело не в программе. У меня нормально работает. Раза 3 прогнал, все нормально. Может ты опять чего поправил?
Еще раз скину с файлом BD. Кинь его на диск С и запусти *.exe второй программы, должно сразу открыть запись. Если нет, то не знаю.

[Rus 47]

Странно, ошибку пишет (Disc read error), но выводит всё правильно (если alt+f5 нажать ). Спасибо puporev!!!