Почему нужно 2 раза писать readln? - PascalABC.NET

end;
var
  c:chelovek;
begin
  c:=new chelovek;
  writeln('Привет, представься пожалуйста!');
  write('Имя: ');
  readln(c.imya);
  write('Фамилия: ');
  readln(c.familiya);
  write('Отлично ', c.imya,' ', c.familiya, ' очень приятно!');
  writeln('А сколько тебе лет?');
  write('Возраст: ');
  read(c.let);
  
    if (c.let<18) then
    writeln('Такая маленькая, зачем ты зашла на порно сайт?')
    else
    writeln('Я в твои годы вагоны разгружал, а ты....');
    readln(c.otvet); // почему работает только с двумя "readln(c.otvet)"
    write(c.imya, ': ');
    readln(c.otvet); // убрать одну из "readln(c.otvet)" и программа до конца не работает. Почему?

    if (c.otvet='а че я') then
    writeln('Ты капец(')
    else
    writeln(')))');
end.