Помогите пожалуйста, только начал программировать.. . Вот некому объяснить...

Question

Задание: Вывести в порядке возрастания их кодов все строчные буквы латинского алфавита, имеющихся в тексте01:51:00 
Вот код 
procedure TForm1.Button1Click(Sender: TObject); 
var s:string; 
c:char; 
b:byte; 
x:real; 
begin 
Edit2.Enabled:=true; 
Edit2.ReadOnly:=true; 
b:=strtofloat(edit1.text); 
x:=strtofloat(edit2.text); 
for b:=1 to length(s) do 
s:=upcase(s); 
for c:='A' to 'z' do 
for b:=1 to length(s) do 
if c=sthen 
begin 
Edit2.Text:=inttostr(c); 
end; 
 
end; 
 
procedure TForm1.Edit1Change(Sender: TObject); 
begin 
Edit2.Enabled:=false; 
end; 
 
end.

Надежда Россохина · Accepted Answer

Компилятор это "хавает"? :) 
 
Напишите мне на почту - помогу.

Лариса Казбекова · Answer

Хитро как у вас все хитро. 
Перебираете строчку, для каждой буквы отмечаете в отдельном массиве, что такая буква встратилась, выводите массив на экран. 
Типо так: 
for i := 1 to length(s) do 
inc( c[ ord( s[ i ] ) ] ); 
for i := ord( 'a' ) to ord( 'z' ) do 
if (c[ i ] > 0) then 
вывести ( i );