Составьте программу, которая запрашивает пол учеников ('ж'или 'м') и их количество…

Ох и намудрил с этой программой) program school; var a: char; b: real; c,d: boolean; beginWriteln ('Введите пол (м или ж) и количество учеников'); repeat write ('Пол — '); readln (a); if upcase (a)='Ж' then c: =true; if upcase (a)='М' then c: =true; if c=true then write elsewriteln ('Вы должны ввести использовать символы «м» или «ж"'); until c=true; repeat write ('Количество учеников данного пола от 5 до 30 — '); readln (b); if b<5 then d: =false else d: =true; if b>30 then d: =false else d: =true; if d=true thenbeginif upcase (a)='Ж' then writeln ('В классе сейчас ',b,' девоч.'); if upcase (a)='М' then writeln ('В классе сейчас ',b,' мальч.'); end; until d=true; end.