Помогите, пожалуйста, создать программу распорядка дня в Паскале

//Pascal ABC.NET v3.0 сборка 1111 Var  s:string; begin;  repeat   writeln('Уже утро?');   readln(s);   if s='Нет' then writeln('Продолжать спать');  until s='Да';  writeln('Проснуться');  writeln('Завтрак');  writeln('Школа');  writeln('Ты голоден?');  readln(s);  if s='Да' then writeln('Обедать');  writeln('Д.з.');  writeln('Свободное время');  writeln('Ты голоден?');  readln(s);  if s='Да' then writeln('Ужинать');  writeln('Спать'); end.