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

[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.

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

Кросспост

[Smitt&Wesson]

Да, когда-ж вы научитесь оформлять листинги? Вот, у модераторов больше работы нет, как оформлять Ваши высеры. Иногда, даже не код, а его оформление, может подсказать решение, даже если с языками проблема. Я не Паскалист и не Дельфинист, но если код оформлен правильно, могу по логике вложений разобраться.