Для чего нужна строчка s1:=s1+[ ];

Дана последовательность слов длинойN. Слова состоят из строчных

латинских букв и разделены одним или несколькими пробелами.

Получить новую последовательность, путем исключения слов

содержащих не более двух различных букв. Подсчитать количество

слов в новой последовательности.

var
s1, s2, w: string;
i, k, n: Integer;
c: char;
s: set of char;
begin
WriteLn('Введите последовательность слов (строчные латинские буквы): ');
ReadLn(s1);
s1:=s1+' '; w:=''; n:=0; s:=[];
for i:=1 to Length(s1) do
if s1[i]=' ' then
if w'' then begin
k:=0;
for c:='a' to 'z' do if c in s then inc(k);
if k>2 then begin
s2:=s2+w+' '; inc(n);
end;
w:=''; s:=[];
end else
else begin
w:=w+s1[i]; Include(s, s1[i]);
end;
WriteLn('В новой последовательности слов ', n);
WriteLn(s2);
end.