Помогите пожалуйста с задачей (через Type)

[Ziner_Fisher]

сведения про каждую машину включают в себя следующую информацию: модель (строка длиной 10 символов), номер (код региона, цифровой код, буквенные код), цвет, сведения о владельце (фамилия, имя, отчество), дата последнего техосмотра:
- Выберите данные о все машины, которые не прошли техосмотр в текущем году;
- Введите информацию о всех владельцев "Волг" черного цвета.

[Stilet]

type auto=string;
const n=2;
var
  model,nomer,zvet,fio,data:array[1..n] of auto;
  j,i:integer; odnofam:boolean;
begin
  // Вводим авто
  for i:=1 to n do begin
   write('model: '); readln(model[i]);
   write('nomer: '); readln(nomer[i]);
   write('fio: '); readln(fio[i]);
   write('data: '); readln(data[i]);
  end;

  //Узнаем есть ли зайцы
  for i:=1 to n do begin
    if pos('.2013',data[i])<>0 then begin
      writeln(model[i]:10,nomer[i]:10,zvet[i]:10,fio[i]:30);
    end;
  end;

  //Ищем Волгу
  for i:=1 to n do begin
    if (model[i]='volga')and(zvet[i]='cherny') then begin
       writeln(model[i]:10,nomer[i]:10,fio[i]:30);
    end;
  end;
  readln;

end;

[Serge_Bliznykov]

type auto=string;

Виталий, ну явно же задача на тип "record"!
что-то типа:

type
   TNomer = record
     kodreg : integer;
     kod     : integer;
     Letters : string[3];
  end;
  TDate = record
     D, M, Y: Integer;
  end;

  TAuto = record
    model: string[10];
    nomer : TNomer;
    cvet   : string[15]
    dateTO : TDate;
  end;

...

var
   BDAuto : array[1..n] of  TAuto;
....

Пользуетесь тем, что нубы сами не понимаю, что им нужно, да?

[Stilet]

Пользуетесь тем, что нубы сами не понимаю, что им нужно, да?

Нет. Меня в КБ научили четко подходить к ТЗ. Пользуюсь этим знанием. Тем паче что задание я не нарушил. Сказано Type - так и сделано.