Обработка файла, Создание и обработка файла Опции

[R@f]

Доброго времени суток! Такая задача:
"Дан файл, содержащий сведения об автомобилях: марка, номер и фамилия владельца. Найти фамилии владельцев и номера всех автомобилей данной марки."
Прога написана. Но я не могу правильно создать к ней файл. Пробовал вводить в файл построчно такую инфу: 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.

Сообщение отредактировано: volvo - 28.11.2005 21:11