Soru 04: N adet ismi alfabetik sıralayan program

 

{Girilen N adet ismi alfabedik sıralayan program}

Program alfabedik;

uses crt;

var

  n, i, j :integer;

  matris :array[1..100] of string;

  yedek :string;

begin

  clrscr;

  write('Alfabedik sıralanacak isim adedini giriniz :');

  readln(N);

  for i:=1 to n do

    begin

      write(i);

      write('. ismi giriniz :');

      readln(matris[i]);

    end;

  for i:=1 to n-1 do

   for j:=i+1 to n do

     begin

       if matris[i]>matris[j] then

         begin

           yedek    :=matris[i];

           matris[i]:=matris[j];

           matris[j]:=yedek;

         end;

     end;

  clrscr;

  writeln('İsimlerin alfabedik sırası :');

  for i:=1 to n do

    writeln(matris[i]);

  readkey;

end.