Требуется создать типизированный файл записей

[sifa]

Создать типизированный файл записей, содержащих сведения об автомобиле.
Структура записи имеет следующий вид:

type A = record { Автомобиль }
M: String[20]; { Ф.И.О. владельца }
N: String[10] { Марка }
W: String[14] { Номер }
end

Найти количество автомобилей каждой марки. Исходный файл и результаты
распечатать.

[sifa]

Помогите пожалуйста, очень срочно, написать программу!

[sifa]

Язык Делфи!

[Mandrivnyk]

N: String[10] { Марка }

"фольксваген" не поместится... я уж не говорю про "ламборджини" и "роллс-ройс".
да даже "лада-корыто" не влезет -)

[sifa]

Это ты шутишь так? спасибо

[sifa]

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

[Serge_Bliznykov]

ну на форуме же ДЕСЯТКИ подобных задач!

Чем Вам помочь?! Написать за Вас?!!

создать файл можно (и нужно) примерно так:

type AutoRec = record { Автомобиль }
  FIO: String[20]; { Ф.И.О. владельца }
  Model: String[10] { Марка }
  GosNomer: String[14] { Номер }
end;

var
   f : file of AutoRec;
   One : AutoRec;
   i, n : integer;
begin
   WriteLn('Введите количество записей, которое будете вводить в БД');
   Readln(n);
    if n > 0 then begin
      AssignFile( f, 'AutoDB.dat');
      Rewrite(f);
      for i:=1 to n do begin
         Write('ФИО владельца: '); Readln(One.FIO);
         Write('Марка автомобиля: '); Readln(One.Model);
         Write('Гос.номер: '); Readln(One.GosNomer);

         Write(f, One);
      end;
      CloseFile( f );
      WriteLn('Файл AutoDB.dat создан.');
    end; 
end.