найти все похожие слова

uses crt;
type
    textOfWords = array[1..26] of string;
var
    w: string;
    result: textOfWords;
    s: string;
    k,n,i,j: integer;
    k_thWord, i_thWord: set of char;

procedure toStandart;
begin

    // Заменяет все двоеточия в тексте на пробелы
    while pos(':',s)<>0 do
        s[pos(':',s)]:=' ';

    // Заменяет все точки с запятой в тексте на пробелы
    while pos(';',s)<>0 do
        s[pos(';',s)]:=' ';

    // Заменяет все запятые в тексте на пробелы
    while pos(',',s)<>0 do
        s[pos(',',s)]:=' ';

    // Заменяет все точки в тексте на пробелы
    while pos('.',s)<>0 do
        s[pos('.',s)]:=' ';

    // Проверка на наличие пробела в конце и если его нет, то добавляет его
    if s[length(s)]<>' ' then
        s:=s+' ';

    // Проверка на количество пробелов между словами
    while pos('  ',s)<>0 do
        delete(s,pos('  ',s),1);

end;

procedure share;
begin

    // Разделение строки на массив слов
    while (pos(' ',s)<>0) and (length(s)<>1) do
    begin
        w:=copy(s,1,pos(' ',s));
        delete(w,pos(' ',w),1);
        result[n]:=w;
        n:=n+1;
        delete(s,1,pos(' ',s));
    end;
    n:=n-1;

end;

begin
    readln(s);
    readln(k);
    n:=1;

    toStandart;
    share;

    k_thWord:=[];
    for i:=1 to length(result[k]) do
        k_thWord:=k_thWord + [result[k][i]];

    for i:=1 to n do
    begin
        i_thWord:=[];
        for j:=1 to length(result[i]) do
            i_thWord:=i_thWord+[result[i][j]];
        if i_thWord=k_thWord then
            writeln(result[i]);
    end;
end.