Задача с записями и текстворыми файлами Опции

[chelius]

Товарищи очень сильно прошу помогите очень срочно с задачей, она не сложная, с записями и файлами... ПОМОЖИТЕ ато лишусь места в учебном заведении ((((
Создать базу данных, содержащую сведения о мягкой мебели. Запись базы должна содержать :название, вид, цена, кол-во, доставка(логическая величина). Найти:
количество определенного вида мебели
по названию модели все данные о ней
среднюю цену стульев
ввод данных из файла shopin.txt база данных в shop.dat вывод в shopout.txt
Прошу вас =) помогите будному студенту....

Сообщение отредактировано: chelius - 6.12.2007 12:17

[chelius]

да вот начал переносить информацию из входного текстовика в фойл бд shop.dat присвоил файловой переменной file of m (m это тип записи) и мне ошибочку №63 выкидывает

uses crt;
type m=record
		name : string;
		view :string;
		cost :real;
		numb :longint;
		dost :string;
end;
var f:file of m;
	fot, fin :text;
	r :m;
	n :string;
begin
	clrscr;
	assign (fin, 'shopin.txt');
	assign (f, 'shop.dat');
	assign (fot, 'shopout.txt');

	reset (fin);
	while not eof(fin) do
	begin
		read (fin, r.name);
		readln (fin, r.view);
		readln (fin, r.cost);
		readln (fin, r.numb);
		readln (fin, r.dost);
	close (fin);
        end;
        reset (f);
        rewrite (f);
              writeln (f, r.name); {вот тут ошибка намбер 63 Invalid file type}
        close (а);
end.

файлы 100% созданы и 100% правильно заполнены... начало программы и засел на пару часов ((
извините за неправильно оформление ... незнаю как тут у вас все...

Сообщение отредактировано: chelius - 6.12.2007 12:40