Написать программу, используя технологию структурного программирования-записи - Free Pascal

{$mode objfpc}
 
type
  r = record
    d : 1 .. 31;
    m : 1 .. 12;
    y : integer;
  end;
  
operator < (left, right : r) : boolean;
begin
  result := (left.y < right.y) or 
            ((left.y = right.y) and (left.m < right.m)) or
            ((left.y = right.y) and (left.m = right.m) and (left.d < right.d));
end;
 
operator not (rec : r) : boolean;
begin
  result := rec.m in [1, 2, 12];
end;
 
const n = 5;
var 
  arr : array[1 .. n] of r = 
  (
    (d:3; m:1; y:2017),
    (d:4; m:5; y:2015),
    (d:5; m:12; y:2012),
    (d:6; m:11; y:2017),
    (d:18; m:2; y:1999)
  );
  v, vmax : r;
  
begin
  vmax := arr[1];
  for v in arr do 
  begin
    if not v then writeln(v.d:3, v.m:3, v.y:5);
    if vmax < v then vmax := v;
  end;
  writeln('Максимальная дата: ', vmax.d:3, vmax.m:3, vmax.y:5);
end.