Developing.ru

Задача: Дано описание записи: type данные=record имя:string[10]; пол:char; рост:140..200;end;группа=array[1..15] of данные. Определить средний рост мужчин в группе.

Помогите сделать ^^

for i:=1 to 15 do
if char='m' then begin inc(count); inc(sum, group.height); end;
if count>0 then writeln(sum/count) else writeln('No men in group!');