Думаю можно сделать так:
Код:
const n=22;
var
mas:array [1..n] of real;
i,k,l:integer;
m,d:real;
begin
m:=0;
d:=0;
k:=0;
l:=0;
for i:=1 to n do begin
write ('рост ',i,' человка равен ');
readln(mas[i]);
if mas[i]<0 then begin m:=m+mas[i]; inc(k); end
else begin d:=d+mas[i]; inc(l); end;
end;
if k<>0 then
m:=m/k
else writeln ('мальчиков нет');
if l<>0 then
d:=d/l;
else writeln ('девочек нет');
writeln ('средни рост мальчиковl',abs(m),' средний рост девочек',d);
readln
end.