type
  Person = record
    name: string;
    age: integer;
  end;
 
var 
  a: array [1..5] of Person;
  count: integer;
begin
  a[1].name :='Попова'; a[1].age := 20;
  a[2].name :='Петрова'; a[2].age := 20;
  a[3].name :='Крылов'; a[3].age := 23;
  a[4].name :='Иванов'; a[4].age := 20;
  a[5].name :='Сидоров'; a[5].age := 17;
 
  var age := 20;
 
  count := 0;
  for var i:=1 to 5 do
    if a[i].age=age then
      count += 1;
 
  writeln('Количество человек с возрастом ',age,' равно ',count);
end.