помогите с комментариями к тексту программы

[k221]

Дана последовательность слов длиной N. Слова состоят из строчных латинских букв и разделены одним или несколькими пробелами. Получить новую последовательность, путем исключения слов содержащих две буквы, вводимые с клавиатуры. Вывести количество исключенных слов.

var
  s1, s2, w: string;
  i, n: Integer;
  s, d: set of char;
begin
  WriteLn('vvedite posledovatelnost slov:');
  ReadLn(s1);
  Write('vvedite dve bykBb|: '); ReadLn(w);
  for i:=Length(w) downto 1 do
  Include(d,w[i]);
  s1:=s1+' ';
  w:='';
  n:=0;
  s:=[];
  for i:=1 to Length(s1) do
    if s1[i]=' ' then
      if (w<>'') then
       begin
        if (s*d=d) then inc(n) else s2:=s2+w+' ';
        w:='';
        s:=[];
      end else
    else
      begin
      w:=w+s1[i];
      Include(s, s1[i]);
    end;
  WriteLn('kolichestvo isklychenb|x slov ',n);
  WriteLn(s2);
  readln;
end.

кому не сложно помогите с комментариями)

[p51x]

зачем кросспостите?