{* Задача 467 *}

Unit ZADACH467;
Interface
Implementation
Begin
 writeln('Определить комбинированный тип для представления анкеты ребенка, состоящей из его имени, пола и роста. Дан файл kids.txt с информацией о детях. Вывести средний рост мальчиков.');
End.

Program zadach467;

Uses zadach467.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  child = Record             name, pol : String;
  rost : real;
  End;
Var {* В работе нам потребуются переменные: *}
  kids : text;
  ch   : child;
  k    : integer;
  s    : real;
  sr   : real;
  Begin
  k := 0;
  s := 0;
  assign (kids, 'kids.txt'); {* Привязка переменной kids к файлу 'kids.txt' *}
  reset (kids); {* Чтение из файла через переменную kids *}
While Not eof (kids) Do {* Пока не конец файла *}
Begin
  readln (kids, ch.name);
  readln (kids, ch.pol);
  readln (kids, ch.rost);
  If ch.pol = 'м' Then
  Begin
    k := k + 1;
    s := s + ch.rost;
  End;
  
End;
sr := s / k;
writeln ('sr=', sr);
close (kids); {* Закрыть файл kids *}
End...