{Girilen N adet ismi alfabedik sıralayan program}
Program alfabedik;
uses wincrt;
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.