//создать массив записей, содержащий след. инф.: фамилия, пол, размер обуви.
//разделить этот массив на два по половому признаку и расставить по алфавиту
//посчитать к-во муж. об. размров 41, 42, 43 и жен. об. разм. 35, 36, 37
program Project1;
type cmas=record
fam:string[50];
pol:integer;
razm:integer;
end;
type tmas=array[1..20]of cmas;

PROCEDURE VVOD(var t:tmas; n:integer);
var i:integer;
begin
writeln('Kolichyestvo lyudyey: ');
readln(n);
for i:=1 to n do
begin
writeln ('Familiya: ');
readln (t[i].fam);
writeln ('Razmyer obuvi: ');
readln (t[i].razm);
writeln ('Pol(male-1,fem-2): ');
readln (t[i].pol);
end;
end;
PROCEDURE CHANGE(var k,z:integer; n:integer; t:tmas; var mmas:tmas; var fmas:tmas);
var i:integer;
begin
begin k:=1;
for i:=1 to n do
if (t[i].pol=1) then
begin
mmas[k]:=t[i];
inc(k);
end;
z:=1;
for i:=1 to n do
if (t[i].pol=2) then
begin
fmas[z]:=t[i];
inc(z);
end;
end;
end;
PROCEDURE VIVOD(mmas:tmas; fmas:tmas; k,z:integer);
begin
writeln('Male: ');
for k:=1 to k-1 do
writeln(mmas[k].fam);
writeln('Female: ');
for z:=1 to z-1 do
writeln(fmas[z].fam);
end;
var ttmas,tttmas,ttttmas,imas,nmas,kmas:tmas;
begin
VVOD (ttmas,3);
CHANGE (3,3,3,tttmas,ttttmas,imas);
VIVOD (nmas,kmas,1,1);
readln;
end.