Нужно сделать так, что бы операция:
writeln(s, ', ответь да или нет.');
readln(s1);
повторялась бесконечно до момента ввода слова да или нет.
вот полный код:

var s, s1: string;
begin
writeln('как тебя зовут? ');
readln(s);
writeln(', ', s, '. а ты любишь читать? (да/нет).');
readln(s1);
if s1 = 'да' then
begin
writeln('хорошо, книга – источник знаний.');
end
else
if s1 = 'нет' then
begin
writeln('плохо, нужно читать книги! ');
end
else
writeln(s, ', ответь да или нет.');
readln(s1);
end.

var s, s1: string;

begin

writeln('Как тебя зовут?');

readln(s);

writeln('Привет, ', s, '. А ты любишь читать?(Да/Нет).');

while true do begin

 readln(s1);

 if s1 = 'Да' then begin

   writeln('Хорошо, книга – источник знаний.');

   break;

 end else if s1 = 'Нет' then begin

   writeln('Плохо, нужно читать книги!');

   break;

 end else

   writeln(s, ', ответь Да или Нет.');

end;

end.

Объяснение:

это один из вариантов - бесконечный цикл с командами break - выхода из цикла в случае правильного ответа