Разработка программ с использованием множеств

var s:string; {строка}
    a:array[1..200] of string;{массив слов}
    n,i,j,k:byte;
    m,mp:set of char;{множества}
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами в конце точка');//нафига она нужна???
readln(s);
s:=' '+s; {добавим пробел в начало для удобства}
n:=0;{количество слов}
i:=2;{начнем со 2 символа, 1 пробел}
while i<=length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then {если не пробел, а перед ним пробел}
 begin
  inc(n); {новое слово}
  a[n]:='';{будем его составлять}
  j:=i;
  while not(s[j]in[' ','.']) do{пока не пробел или точка}
   begin
    a[n]:=a[n]+s[j];
    inc(j);
   end;
  i:=i+length(a[n]); {перешагнем через слово}
 end
else inc(i);{пропускаем пробелы}
{сравниваем множества слов с множеством последнего слова}
writeln('Слова состоящие из тех же букв что и последнее слово');
mp:=[];
for i:=1 to length(a[n]) do
include(mp,a[n][i]);
k:=0;
for i:=1 to n-1 do
 begin
  m:=[];
  for j:=1 to length(a[i]) do
  include(m,a[i][j]);
  if m=mp then
   begin
    write(a[i],' ');
    k:=1;
   end;
 end;
if k=0 then write('Таких слов нет');
end.