Помогите написать программу на Паскале

Известен рост каждого ученика в классе.Рост мальчиков условно задан отрицательными числами. Определить средний рост мальчиков и средний рост девочек.

var n, i, growth, growth_girls, growth_boys, count_boys, count_girls: integer;beginwriteln('Введите количество учеников в классе');read(n);growth_girls := 0;growth_boys := 0;count_boys := 0;count_girls := 0;for i := 1 to n dobegin  read(growth);  if (growth < 0) then  begin    growth_boys := growth_boys - growth;    count_boys := count_boys + 1;  end  else  begin    growth_girls := growth_girls + growth;    count_girls := count_girls + 1;  end;end;if (count_boys = 0) then   writeln('В классе нет мальчиков')else  writeln('Средний рост мальчиков: ', (growth_boys / count_boys):0:2);if (count_girls = 0) then   writeln('В классе нет девочек')else  writeln('Средний рост девочек: ', (growth_girls / count_girls):0:2);end.