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

program z1;
 var n,m:integer;
 rost,nine_a,nine_b:real;
 begin
write(Введите количество учинеков 9а класса: );
readln(n);
write(Введите количество учинеков 9б класса: );
readln(m);
writeln(Вводите рост каждого из учинеков 9а по очереди);
for i:integer :=1 to n do begin
write(i,: );
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln(Вводите рост каждого из учинеков 9б по очереди);
for i:integer :=1 to m do begin
write(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 end.


как-то так, будут вопросы пиши)
Всего-то 30 мин