Помогите разобраться с кодом!

[Astiya]

Здравствуйте!
Помогите, пожалуйста, разобраться.
Имеется код программы, которая должна считывать введённый с клавиатуры текст и распечатывать все латинские буквы, входящие в этот текст, в алфавитном порядке. Вот код:

var c:char;                   // переменная-символ
    i : integer;              // -32768..+32767, целочисленный
    S : string;               // переменная строки
begin
Write('Введите строку:');     // вводим строку  (к примеру, "dafe")
Readln(S);                    // считывание строки как элемента S writeln('Латинские буквы, входящие в строку');     
  // выводим надпись ("Латинские буквы, входящие в строку")
for c:='A' to 'Z' do                         // для элемента С от "A" до "Z" делать
for i:=1 to Length(S) do                     // для I = от 1 до длины строки делать (вычисляет длину строки, в данном случае: I= от 1 до 4)
if c=UpCase(S[i]) then write(S[I]);   
end.

Что делается в строке "if c=UpCase(S[i]) then write(S[I])"? Как именно происходит работа программы здесь? Никак не могу понять. Остальные заметки по поводу работы программы ведь верны? Или в чём-то я сделала ошибку? Гугл выдаёт, что "UpCase(S[i])" переводит буквы из нижнего регистра в верхний, но это не так (на практике он этого не делает). За что это отвечает?
Буду очень благодарна за помощь, уже недели две мучаюсь над этим вопросом.

[newerow1989]

Сортирует все буквы в строке по порядку (независимо от регистра).
UpCase переводит буквы латинского алфавита в верхний регистр.

"if c=UpCase(S[i]) then write(S[I])"

По порядку рассказываю:
Сначала переменная c станет 'A' --> проверяется вся строка с 1 символа до конца строки, если встретилась эта буква 'A' (независимо от регистра), то выводит ее на экран.
Потом с станет 'B' --> проверяется вся строка с 1 символа до конца строки, если встретилась эта буква 'B' (независимо от регистра), то выводит ее на экран.
Потом с станет 'C' и т.д. до конца ('Z')!

[Astiya]

newerow1989, спасибо большое!
Очень выручили!)

[newerow1989]

Пожалуйста!