известен рост каждого из n учеников 9а класса и m учеников 9б класса. опишите укрупнёнными блоками алгоритм сравнения среднего роста учеников этих классов 
ПОМОГИТЕ ПОЖАЛУЙСТАА,завтра по этому контрольная .а как делать не знаю

 program z1; var n,m:integer; rost,nine_a,nine_b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);nine_a:=nine_a+rost;end;nine_a:=nine_a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);nine_b:=nine_b+rost;end;nine_b:=nine_b/n; // средний рост 9бif nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.как-то так, будут вопросы пиши)Всего-то 30 мин