{Даны таблицы А[1..n] ,В[1..m]. Построить таблицу С в которой сначала размещаются все элм-ты А, затем все элм-ты табл В. }

uses crt;
var a : array [1..5,1..2] of string;
    m,j,i,g : longint;
    b,c : array [1..5] of string;
begin
  clrscr;
  writeln('введ i-фамилии, j-пол');
  for i:=1 to 5 do
  for j:=1 to 2 do
  begin
    write('a[',i,',',j,']=');
	readln(a[i,j]);
  end;
  for i:=1 to 5 do
  begin
    if a[i,2]='м' then begin
                         m:=m+1;
                    b[m]:=a[i,1];
                       end;
    if a[i,2]='ж' then begin
                         g:=g+1;
                    c[g]:=a[i,1];
                       end;
  end;
   writeln('мальчики:');
    for i:=1 to m do writeln(b[m]);
   writeln('девочки:');
    for i:=1 to g do writeln(c[g]);
  readln;
end.