"Дан файл, содержащий сведения об автомобилях: марка, номер и фамилия владельца. Найти фамилии владельцев и номера всех автомобилей данной марки."
Прога написана. Но я не могу правильно создать к ней файл. Пробовал вводить в файл построчно такую инфу: MERCEDES А001АА Путин. А он ругается, что предпринята попытка чтения после конца файла. Так как мне создать файл и в нём ли проблема?
Const n=10;
found:boolean=false;
Type info=record
brand:string[15];
number:string[15];
surname:string[15];
end;
Var car:info;
f:file of info;
z:string[20];
i:1..n;
Begin
assign(f,’car.txt’);
reset(f);
write(‘Введите заглавными буквами марку автомобиля: ‘);
readln(z);
wile not EoF(f)do
begin
read(f,car);
with car do
if brand=z then
begin
found:=true;
writeln(surname:20,number:20)
end
end;
if not found then write (‘Автомобиль данной марки не найден: ‘);
Readln
End.