Pascal/Turbo Pascal - comparar fechas

Classes,sysutils,dateutils;

var

  fechaActual,fechaExpedicion:TDate;

  fechaValida:Boolean;

  fecha:string;

begin

  fechaValida:=false;

  fecha:='';

  fechaActual:=Date;

  WriteLn('Fecha actual ',DateToStr(fechaActual));

  WriteLn;

  repeat

    WriteLn('Ingrese la fecha de expedicion del certificado de saludo  DD-MM-AA');

    ReadLn(fecha);

    fechaValida:=TryStrToDate(fecha,fechaExpedicion);

  until fechaValida=true ;

  WriteLn('Fecha de certificado de salud es ',DateToStr(fechaExpedicion));

  if DaysBetween(fechaActual,fechaExpedicion)>365 then WriteLn('Observacion vencido ')

  else WriteLn('Observacion vigente ');

  ReadLn;

end.