Как изменить фоновый рисунок во время воспроизведения музыки это в приложении Скреч​

Пайнт потом видешь там краски и рисуешь

а я вот так сделал)

написано в pascal.abc.net

var x : integer; sex : char; function numbers(n: integer): string; begin case n of 5: result : = 'пять'; 6: result : = 'шесть'; 7: result : = 'семь'; 8: result : = 'восемь'; 9: result : = 'девять'; 10: result : = 'десять'; 11: result : = 'одиннадцать'; 12: result : = 'двенадцать'; 13: result : = 'тринадцать'; 14: result : = 'четырнадцать'; 15: result : = 'пятнадцать'; 16: result : = 'шестнадцать'; 17: result : = 'семнадцать'; 18: result : = 'восемнадцать'; 19: result : = 'девятнадцать'; 20: result : = 'двадцать'; 21: result : = 'двадцать один'; 22: result : = 'двадцать два'; 23: result : = 'двадцать три'; 24: result : = 'двадцать четыре'; 25: result : = 'двадцать пять'; 26: result : = 'двадцать шесть'; 27: result : = 'двадцать семь'; 28: result : = 'двадцать восемь'; 29: result : = 'двадцать девять'; 30: result : = 'тридцать'; 31: result : = 'тридцать один'; 32: result : = 'тридцать два'; 33: result : = 'тридцать три'; 34: result : = 'тридцать четыре'; 35: result : = 'тридцать пять'; end; end; begin writeln ('введите пол и количество: '); readln (sex,x); write('в классе сейчас ', numbers(x)); if sex = 'м' then write(' мальчиков') else if sex = 'ж' then write(' девочек'); end.