Program zap_20;
Uses Crt;
Const n=10;
Type uch = record
Fio:string[20];
Pol:='м','ж';
God:integer;
end;
Var a : array[1..n] of uch;
I,k1,k2 :byte;
BEGIN
ClrScr;
K1:=0;k2:=0;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите фио');
Readln(fio);
Writeln(' Введите пол');
Readln(pol);
If pol='м' then k1:=k1+1 else k2:=k2+1;
Writeln(' Введите год рождения');
Readln(god);
End;
Writeln('Количество мальчиков',k1);
Writeln('Список мальчиков');
for i:=1 to n do
with a[I] do
if pol='м' then writeln(fio,' ',god);
Writeln('Количество девочек',k2);
Writeln('Список девочек');
for i:=1 to n do
with a[I] do
if pol='ж' then writeln(fio,' ',god);
Readln;
end.