задача на поиск букв, встречающихся один раз Опции

[Shumaher]

ЛЮДИ! ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ:

Задан текст из латинских букв. Вывести в алфавитном порядке все буквы, которые встречаются в тексте только один раз.

Заранее спасибо!

[volvo]

const
  len = 26;
var
  i, p: integer;
  ch: char;
  s: string;

begin
  s := 'which letters will be here?';
  for i := 0 to pred(len) do begin

    ch := chr(ord('a') + i);
    p := pos(ch, s);
    if p <> 0 then begin
      p := p * pos(ch, copy(s, p + 1, length(s)));
      if p = 0 then write(ch);
    end;

  end;
  writeln;
end.

Shumaher, попробуй объяснить, КАК эта программа работает...