Определите и выведите на экран средний рост мальчиков

program vb5; 
uses crt;
var a:array [1..100] of integer; 
i,n,kd,km:integer; sm,sd:real;
begin 
write ('Введите количество учащихся: '); 
read(n); 
for i:=1 to n do 
read(a[ i ]); 
for i:=1 to n do 
begin 
if a[ i ]<0 then 
begin 
inc(km); 
sm:=sm-a[ i ]; 
end; 
if a[ i ]>0 then 
begin 
inc(kd); 
sd:=sd+a[ i ]; 
end; 
end; 
writeln('Средний рост мальчиков=',sm/km:0:0); 
writeln('Средний рост девочек=',sd/kd:0:0); 
end.

uses crt;
type uchenik=record
             rs:byte;
             pl:char;
             end;
var a:array [1..100] of uchenik;
    n,i,k:integer;
    s:real;
begin
repeat
write('Количество учеников от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Введите данные об учениках');
for i:=1 to n do
 begin
  writeln('Ученик ',i);
  with a[i] do
   begin
    repeat
     write('Пол + девочка - мальчик: ');
     readln(pl);
    until pl in ['+','-'];
    repeat
    write('ведите рост от 130 до 180: ');
    readln(rs);
    until rs in [130..180];
   end;
 end;
s:=0;
k:=0;
for i:=1 to n do
if a[i].pl='-' then
 begin
  s:=s+a[i].rs;
  k:=k+1;
 end;
if k=0 then write('Мальчиков нет')
else write('Средний рост мальчиков=',s/k:0:2,' см.');
end.