Program ZapisnajaKnijka;
const bookname='kalendar.txt';

type
    Zapis=record
           date: string[50];          
           quest1: string[250];   
           quest2: string[250];   
    end;

var
    F: file of Zapis;    
    Kniga: Zapis;    

function BBOD: boolean;    
begin
       writeln;
       with Kniga do
       begin
            write(' ВВЕДИТЕ ДАТУ (менее 50 символов): '); readln(date); { <---данная строка при вашей помощи не понадобится но пусть будет щас}
            write(' ВВЕДИТЕ ЧТО (менее 250 символов): '); readln(quest1);
            write(' ВВЕДИТЕ КАК (менее 250 символов): '); readln(quest2);

            BBOD:=(date<>'') and (quest1<>'') and (quest2<>'');
       end;
end;