Данные о росте учащихся класса хранятся в виде массива. Рост мальчишек

Const n=10;
var
a: array[1..n] of integer;
i, km, kf, tm, tf: integer;
sm, sf: real;
begin
for i:=1 to n do
  readln(a[i]);  //считываем массив
km:=0; kf:=0; tm:=0; tf:=0;
for i:=1 to n do
//обретаем суммарный рост мальчишек
//и девченок, и количество
  if a[i] lt; 0 then
  begin
    km:=km+1;
    tm:=tm + abs(a[i]);
  end
  else
  begin
    kf:=kf+1;
    tf:=tf + a[i];
  end;
//обретаем среднее арифметическое
if km gt; 0 then
sm:=tm/km;
if kf gt; 0 then
sf:=tf/kf;
writeln('Средний рост мальчишек: ', sm);
writeln('Средний рост девченок: ', sf);
end.

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('Количество воспитанников: ');
  Writeln('Вводите рост воспитанников (девченок - с минусом)');
  var a:=ReadArrInteger(n);
  WriteFormat('Средний рост мальчишек 0, девченок 1',
    a.Where(x-gt;xgt;0).Average,-a.Where(x-gt;xlt;0).Average)
end.

Тестовое решение:
Количество воспитанников:  5
Вводите рост воспитанников (девченок - с минусом)
160 -156 162 -160 -158
Средний рост мальчиков 161, девченок 158