Как ввести с клавиатуры переменную булевского типа

program BooleanInput;
   var eat:boolean;
       ch:char;
begin
   write('Tы хочешь есть [y/n]?:');
   readln(ch);
   eat: = ch = 'y';
   writeln('Твой ответ:',eat);
   readln
end.