Работа с записями (типизированные файлы)Paskal

[Cool_cool_death]

Доброго времени суток, уважаемые

Задание в общих чертах такое: нужно создать некую базу по продаже автомобилей, в которой содержится модель, номер машины, дата объявления, цена и пр. Оформить все как запись.
Вопросов, собственно, несколько.
1) Как создать конкретный типизированный файл на физическом носителе с любым расширением? Кидаю команду rewrite, файл создается, но после ввода всегда пустой - 0 байт. Почему и как найти выход?
2) Каким образом организовать статистику по конкретным параметрам? Ну, допустим, нужно посчитать, какая средняя цена по каждой модели, и вывсети это таблицей. Таблицу я худо-бедно организовать смогу, а вот выборку...Плаваю и зависаю

Если что - наброски уже имеющегося кода могу предоставить.
Заранее спасибо!

[IT-man]

1)используйте close(f); после окончания ввода
2)считывайте в массив с типом array of ваша_запись и делайте с ним и в нем что угодно

[Cool_cool_death]

IT-man, за совет с массивом огромное спасибо!

А вот с close(f) фокус не катит. Разумеется, я закрываю файл, но это не меняет положения дел

[IT-man]

код записи в файл покажи от assign до close

[Cool_cool_death]

    assign(car,'c:\bp\bin\car.dat');
     rewrite(car);
     n:=1;

     repeat
     clrscr;
     writeln(n,'Введите название модели');
     readln(d.model);

     while (length(D.model)=0) or (d.model=' ') do begin
     writeln('Модель не введена.Повторите ввод:');
     readln(d.model); end;

     writeln(n,'Введите предлагаемую стоимость');
     readln(d.price);
     while (d.price<=0) do begin

     writeln('Неверно введена стоимость. Повторите ввод:');
     readln(d.price); end;

	{тут еще целая куча идентичных вводов с проверками}

     textcolor(lightgreen);
     writeln('Продолжить ввод?Нажмите любую клавишу для продолжения,esc для завершения');
     n:=n+1;
     until readkey=#27;

     close(car);

[IT-man]

ну это ты их ввела, а в файл кто писать будет

assign(car,'c:\bp\bin\car.dat');
     rewrite(car);
     n:=1;

     repeat
     clrscr;
     writeln(n,'Введите название модели');
     readln(d.model);

     while (length(D.model)=0) or (d.model=' ') do begin
     writeln('Модель не введена.Повторите ввод:');
     readln(d.model); end;

     writeln(n,'Введите предлагаемую стоимость');
     readln(d.price);
     while (d.price<=0) do begin

     writeln('Неверно введена стоимость. Повторите ввод:');
     readln(d.price); end;

	{тут еще целая куча идентичных вводов с проверками}

     textcolor(lightgreen);
     writeln('Продолжить ввод?Нажмите любую клавишу для продолжения,esc для завершения');
     n:=n+1;
 write(car,d);
     until readkey=#27;

     close(car);

[Cool_cool_death]

Вот черт! И правда!
Благодарствую за помощь, премного признательна

[Базиля]

У меня похожая ситуация, только условие задания немного другое, в общем имеется файл записей. И мне нужно посчитать общую цену товаров из разных отделов. Просто дело в том что отделы могу повторятся, следовательно нужно изменять цену.
Ну допустим:
Электроника
2200руб
Косметика
1500руб
Овощи
500руб
Электроника
3500руб
Косметика
300руб
Овощи
600 руб
Вот эта запись у меня хранится в одном файле. И вот мне требуется в другой файл переписать общуй стоимость товаров одного отдела. Вот так вот:
Электроника
5700 руб
Косметика
300 руб
овощи
1100 руб.
Просто не могу разобратся, как например искать в файле одинаковые отделы, при условии того что их может быть более двух одинаковых..Как это организовать?

[CodeExpert]

Ну так это вы сделайте массив из структур, в него полностью все что есть вводите, только не забываете разность типов, у вас же так : 2200 руб, вам нужно число, то есть еще эту компоненту записи разбираете как строку и все что не число удаляете, далее переводите строку в число и работаете с этим...Собственно напишите процедурку, которая бы обрабатывала этот массив записей и выдавала результат...