Penyusunan Karakter dalam string secara Alphabet

Program ini akan menyusun sebuah kata yang dimasukkan sesuai dengan alphabet.

algoritmanya gampang saja :
Pada dasarnya string itu adalah larik char. jadi untuk mengurutkannya, kita tinggal membandingkan apakah string[1] lebih besar dari string sesudahnya. Jika ya maka, pertukarkan posisi mereka.

Silahkan.di coba.

program sort;

uses crt;


var
 szo: string;
 i, j : byte;
 n : integer;
 t:char;


begin
 write('masukkan Kata : ');
 readln(szo);
 n:=length(szo);

 for i:=1 to n-1 do
  begin
   for j:= i +1 to n do
    begin
     if (szo[i]>szo[j]) then
      begin
       t:=szo[i];
       szo[i]:=szo[j];
       szo[j]:=t;
       writeln(szo);

      end;
    end;
  end;
 writeln();

 for i:=1 to n do write(szo[i], ' ');
 readln;

end.