Girdiğiniz isimleri alfabetik sıralıyor

program isim;
uses crt;
const
toplam_sayi = 5;
var
harf: array[1..toplam_sayi] of string ;
gecici : string;
i,j : integer;
begin
clrscr;
for i :=1 to toplam_sayi do
begin
write(i,'ismi giriniz');
readln(harf[i]);
end;
for i :=1 to toplam_sayi-1 do
for j :=1+i to toplam_sayi do
if harf[i] > harf[j] then
begin
gecici:=harf[i];
harf[i]:=harf[j];
harf[j]:=gecici;
end;
begin
writeln('Sirali Liste');
writeln('-----------');
for i := 1 to toplam_sayi do
writeln(harf[i]);
readln;
end;
end.