使用pascal检查日期之间的可用性

Question

我正在使用pascal为我的学校任务编写脚本。这是一个租赁计划。 我无法检查开始日期和结束日期之间的可用性。 我在数组中有开始和结束日期，并且还有用户输入的开始和结束日期。问题是当存储的数据和数据输入发生崩溃时，如何将可用性设置为false。我使用免费的pascal，日期是一个记录。我试过只使用if和循环。

if(rdata[i].start_date.M<>rdata[i].ends_date.M)and(temprdata.start_date.M=data[i].start_date.M)and(temprdata.start_date.M=data[i].start_date.M)then
    begin
        if(temprdata.start_date.D>=rdata[i].start_date.D)then
            isavailable:=false;
        if
            if(temprdata.ends_date.D>=rdata[i].start_date.D)then
                isavailable:=false;
    end
    else
    if(rdata[i].start_date.M=rdata[i].ends_date.M)and(temprdata.start_date.M=data[i].start_date.M)and(temprdata.start_date.M=data[i].start_date.M)then
    begin
        if(temprdata.stat_date.D>=rdata[i].start_date.D)and(temprdata.stat_date.D<=rdata[i].ends_date.M)then
            isavailable:=false;
        if(temprdata.ends_date.D>=rdata[i].start_date.D)then
            isavailable:=false;
    end;