задача в Делфи определить машину не прошедшую техосмотр

[Анастасья]

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

program Project7;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
  MaxN=100;
type
  TNumber=record
    codeReg:1..200;
    Nam:1..999;
    let:string[3];
  end;

  TDate=record
    day,month,year:integer;
  end;

  TCar=record
    model:string[10];
    Number:TNumber;
    Color:string;
    FIO:string;
    TechOsm:TDate;
  end;

  TMas=array[1..MaxN]of TCar;

var
  Mas:TMas;
  n:integer;
  CarDate:TDate;

procedure InputNumber(var N:TNumber);
begin
  with N do
    begin
      writeln('Веедите код региона номера');
      readln(codeReg);
      writeln('Введите цифровой код номера');
      readln(Nam);
      writeln('Введите буквенный код номера');
      readln(Let);
    end;
end;


procedure InputDate(var d:TDate);
begin
  writeln('введите день,месяц,год');
  with d do
    begin
      read(day);
      read(month);
      read(year);
    end;
end;

procedure InputCar(var Car:TCar);
begin
  with car do
    begin
      writeln('Введите модель машины');
      readln(model);
      writeln('Введите номер');
      InputNumber(Number);
      writeln('Введите цвет');
      readln(Color);
      writeln('Введите Фамилию,имя,отчество');
      readln(FIO);
      writeln('Введите дату последнего техосмотра');
      InputDate(Techosm);
    end;
end;

procedure InputMas (var A:TMas;n:integer);
var
  i:integer;
begin
  for i := 1 to n do
    begin
      writeln('Введте сведения об втомобиле №',i);
      InputCar(A[i]);
    end;
end;

Function CompareDate (CarDate,Tooday:TDate):boolean; {функция определяет просрочен
или не просрочен техосмотр мацины}
begin
  if CarDate.year <> Tooday.year then
    Result:=false
  else
    Result:=true;
end;

Procedure PrintMasCar(var A:TMas; n:integer);
var
  i:integer;
  d2:TDate;
begin
  writeln('введите сегодняшнюю дату');
  inputDate(d2);
  for i := 1 to n do
    if CompareDate (A[i].TechOsm,d2)then
      printCar(A[i]);


end;


begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это такая КНОПОЧКА с решёточкой #)

Не забывайте об этом!
Модератор.