Известен рост каждого ученика группы. Рост мальчиков задан отрицательными числами. Верно ли, что средний рост мальчиков не превышает рост девочек более
чем на 10 см?
Помогите написать программу на Free Pascal.

const  nn=50; // максимальное количество учениковvar  i,n,sm,sd,km,kd:integer;  am,ad:real;  var a:array[1..nn] of integer;begin  Write('Введите количество учеников: ');  Read(n);  Writeln('Введите рост учеников');  sm:=0; sd:=0; km:=0; kd:=0;  for i:=1 to n do    begin    Read(a[i]);    if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end    else begin sm:=sm-a[i]; Inc(km) end    end;  am:=sm/km; ad:=sd/kd;  Write('Средний рост мальчиков (',am:0:1,') ');  if am-ad<=10 then Write('не ');  Writeln('превышает средний рост девочек (',ad:0:1,') ');  Writeln('больше, чем на 10 см')end.    Примерное решениеВведите количество учеников: 9Введите рост учеников-192 165 -174 179 -172 171 169 170 -170Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8) больше, чем на 10 см