program nevbekeres;
uses crt;
var
keresztnevtomb,vezeteknevtomb:array[1..10] of string;

procedure csere(i,j : byte);
var c : string;
begin
  c:=keresztnevtomb[i];
  keresztnevtomb[i]:=keresztnevtomb[j];
  keresztnevtomb[j]:=c;

  c:=vezeteknevtomb[i];
  vezeteknevtomb[i]:=vezeteknevtomb[j];
  vezeteknevtomb[j]:=c;
end;

procedure kiiratas;
var i:byte;
begin
 for i:=1 to 10 do begin
    writeln(vezeteknevtomb[i]+' '+keresztnevtomb[i]);
 end;
 readln;
end;

procedure rendezes;
var i,j:byte;
begin
    for j:=1 to 10 do begin
      for i:=j+1 to 10 do begin
        if keresztnevtomb[i] < keresztnevtomb[j] then csere(i,j);
      end;
    end;
    writeln('Rendezett kista');
    kiiratas;
end;

procedure bekertnev;
var
veznev,kernev:string;
i:byte;
begin
  for i:=1 to 10 do begin
    write('Kérem a vezetéknevet:');
    read(veznev); vezeteknevtomb[i]:=veznev;
    readln;
    write('Kérem a keresztnevet:');
    read(kernev); keresztnevtomb[i]:=kernev;
    readln;
  end;
  writeln('Rendezetlen lista');
  kiiratas;
end;

begin
clrscr;
bekertnev;
rendezes;
end.