алфавит

[Sanyok1993]

народ проверил эти 2 кода и они не чего не делают.Скажите может я чета не то вожу?тупо выводит тот самый текст.

[hannan]

набросал вот это:

var i,stroka,a:integer;
     txt,k:string;
    slova:array[0..100] of string;
begin
 readln(txt);
 stroka:=0;
 for i:=1 to length(txt) do
  begin
   if txt[i]<>' ' then
     slova[stroka]:=slova[stroka]+txt[i]
   else  stroka:=stroka+1;
  end;
   for i:=0 to stroka do
      for a:=i+1 to stroka do
       begin
        if ord(slova[i,1])>ord(slova[a,1]) then
         begin
          k:=slova[a];
          slova[a]:=slova[i];
          slova[i]:=k;
         end;
       end;
for i:=0 to stroka do
writeln(slova[i],' ');
readln;
end.

[hannan]

Конечно "немного" нужно переделать