Проблема в турбо паскаль: на строке assignfile(f,'Auto.dat'); выдаёт ошибку 88

[Рида]

помогите пожалуйста.

program z9;
type
TAuto=record
Mark:string[20];
Price:integer;
Year:Integer;
Person:string[20];
Adress:string[25];
end;
var F:file of TAuto;
mode:char;
Rec,MinRec,MaxRec:TAuto;
surname:string;
begin
assignfile(f,'Auto.dat');
write('Записать новый файл?(Y/N):');
readln(mode);
if (mode='Y') or (mode='y') then
begin
rewrite(f);
writeln('Добавление записи');
repeat
write('Марка автомобиля:');
readln(rec.Mark);
write('Цена автомобиля:');
readln(rec.Price);
write('Год выпуска:');
readln(rec.Year);
write('Фамилия владельца:');
readln(rec.Person);
write('Адрес владельца:');
readln(rec.Adress);
write(f,rec);
write('Добавить ещё запись?(Y/N):');
readln(mode);
until (mode<>'Y') and (mode<>'y');
closefile(f);
writeln;
end;
reset(f);
read(f,Rec);
MinRec:=Rec;
MaxRec:=Rec;
while not EOF(f) do
begin
read(f,Rec);
if Rec.Price<MinRec.Price then MinRec:=Rec;
if Rec.Price>MaxRec.Price then MaxRec:=Rec;
end;
writeln('Самый дешевый автомобиль:');
writeln('Марка: ',MinRec.Mark);
writeln('Цена: ',MinRec.Price);
writeln('Год выпуска: ',MinRec.Year);
writeln('Фамилия владельца: ',MinRec.Person);
writeln('Адрес владельца: ',MinRec.Adress);
writeln;
writeln('Самый дорогой автомобиль:');
writeln('Марка: ',MaxRec.Mark);
writeln('Цена: ',MaxRec.Price);
writeln('Год выпуска: ',MaxRec.Year);
writeln('Фамилия владельца: ',MaxRec.Person);
writeln('Адрес владельца: ',MaxRec.Adress);
writeln;
write('Введите фамилию владельца для поиска:');
readln(surname);
seek(f,0);
while not EOF(f) do
begin
read(f,Rec);
if Rec.Person=surname then break;
end;
if EOF(f) then writeln('Владелец с такой фамилией не найден!')
else
begin
writeln('Марка: ',Rec.Mark);
writeln('Цена: ',Rec.Price);
writeln('Год выпуска: ',Rec.Year);
end;
closefile(f);
end.

на это строке assignfile(f,'Auto.dat'); выдаёт ошибку 88, как исправить?

[Stilet]

Хм... Скрин можешь показать?

[Вадим Мошев]

на это строке assignfile(f,'Auto.dat'); выдаёт ошибку 888, как исправить?

Попробуйте просто написать:
assign(f,'Auto.dat');

[type_Oleg]

Это точно ТурбоПаскаль ?
В ТР вроде вместо assignfile просто assign, и вместо closefile просто close.

[Stilet]

В ТР вроде вместо assignfile просто assign, и вместо closefile просто close.

Тогда бы наверное ругнулся другой ошибкой.

[Serge_Bliznykov]

Тогда бы наверное ругнулся другой ошибкой.

точняк:
turbopascal.jpg