Привет, помогите придумать программу на паскале, чтобы можно было бы типо вести…

varA: string; beginreadln (A); if (A='привет') or (A='Привет') then writeln ('Приветсвую, как дела? '); readln (A); if (A='Хорошо') or (A='хорошо') then writeln ('У меня тоже все хорошо'); if (A='Плохо') or (A='плохо') then writeln ('Мне тоже грустно'); end.