Составление логических выражений

Program Bol_2;
{ Введем логические переменные, которые будут определять характеристики студента. Составим выражения, определяющие, является ли студент первокурсником, получающим стипендию }
  var
      Price:Boolean; { Определяет наличие стипендии у студента }
      Kursl:Boolean; { Определяет, является ли студент первокурсником }
      Rezult:Boolean; { Определяет результат }
begin
   Price:=True; { Пусть наш студент получает стипендию }
   Kursl:=True; { Пусть студент - первокурсник}
   Rezult:=Price and Kursl;
   writeln('Студент - первокурсник со стипендией? -', Rezult);
   Price:=False; { Пусть наш студент не получает стипендию }
   Rezult:=Price and Kursl;
   writeln('Студент - первокурсник со стипендией? -',Rezult);
   readln
end.