Program BSort_list;
uses wincrt;
Var Name:array[1..10] of string;
    i,N_person,flag,pass:integer;
    temp:string;
    outputfile:text;
Begin  Name[1]:='Robin Gibb';Name[2]:='John Lennon';
       Name[3]:='Tom Cruise';Name[4]:='Barbara Stryson';
       Name[5]:='Mary Hopkins';
       Writeln('The name list before sorting : ');
       N_person:=5;
       For i:=1 to N_person do
       writeln(name[i]);
       For pass:=1 to N_person - 1 do
       begin
            flag:=0;
            For i:=1 to N_person - pass do
                begin
                   If name[i]>name[i+1] then
                      begin
                           temp:=name[i+1];
                           name[i+1]:=name[i];
                           name[i]:=temp;
                           flag:=1
                      end;
                          If i=N_person - pass then
                               begin
                                 
                                   If flag=0 then
                                      begin
                                           assign(outputfile, 'ans.txt');
                                           rewrite(outputfile);


                                           writeln;
                                           Writeln('The name list in ascending order');

                                           For i:=1 to 5 do
                                           begin   
                                               writeln(name[i]);
                                               writeln(outputfile, name[i]);
                                           end;

                                           close(outputfile)
                                      end;
                               end;
                end;
               
        end

 end.