Помогите сделать программу в Паскале
В котором
1)Программа выдает сообщение "Вы маль или дево"
2)Пользователь в переменную ST1 задает значение маль или дево 3)Программа выдает сооб "Ты пошла бы играть в куклы"
4) Вводить ответ через переменную ST2 да или нет
5) Если ST2=да ,а ST1=девочка то выдается сооб "Кого пригласишь с собой"
6)Пользователем через переменную ST3 вводит имя
7)Программа выводит сооб "Вы и [Указывается имя] пошли играть!"
8)В противном случае (пункт 5) программа выдает сооб "А вы ничего не перепутали "
9)Программа выдает сооб "Game Over"

var ST1,ST2,ST3:string;Beginwriteln('Вы мальчик или девочка?');readln(ST1);writeln('Ты пошла бы играть в куклы?');readln(ST2);if (ST2 = 'да') and (ST1 = 'девочка') then beginwriteln('Кого пригласишь с собой?');readln(ST3);writeln('Вы и ',ST3,' пошли играть!');endelsewriteln('А вы ничего не перепутали?');writeln('Game Over');End.