[Pascal] Задача на тип String

[David Backham]

Формулировка задачи:
"Перечислить все слова каждого предложения, которые состоят из тех же букв, что и первое слово данного предложения. Из этих слов организовать новое предложение и записать его в конец исходного текста."
Собственно, текст я загружаю из текстового файла.Потом добавляю каждое предложение в массив, после этого первое слово каждого предложения я добавляю в переменную типа string. А дальше у меня вопрос : Как мне добавить переменную содержащую буквы первого слова во множество, сравнить это множество с остальными словами предложения и сделать это в цикле(так как предложений несколько)?
Вот то, что получилось:

const
  mnr = [' ', ',', '.', '-', '_', ':', ';'];
  mnp = ['!', '.', '?'];
 
var
  A: array[1..30] of string;
  i, n, j, np, k, g, l,d,np: byte;
  s, s1, s2, buf, st: string;
  f: text;
  mnr, mnp: set of char;
 
begin
  mnr:=mnr+mnp;
  assign(f, 'text.txt');
  reset(f);
  while not eof(f) do 
  begin
    read(f, s);
    write(s);
  end;
  writeln;
 for i:=1 to length(s) do               {предложения в массив}
    if not (s[i] in mnp) then s1:=s1+s[i] else
       if length(s1)>0 then
          begin
          k:=0;
          for j:=1 to d do
              if A[j]=s1 then inc(k);
          if k=0 then
             begin
             inc(d);
             a[d]:=s1;
             end;
          s1:='';
          end;
 
   
    
    for i := 1 to d do     {добавляем первое слово каждого предложения в переменную s2} 
  begin
    s1 := a[i];
    for j := 1 to length(s1) do 
    begin
      if not (s1[j] in mnr) then s2 := s2 + ' '
      else
      begin
        np := j;
        break;
      end;
    end;
    
    for k := 1 to length(s2) do {добавляем буквы первого слова во множество}
    begin
      if not (s2[k] in mnr) then begin
        mn1sl :=[s2[k]];
??????????

[Dvoishnik]

есть вариант добавлять в массив не все предложения а по одному и индексировать слова. проверку делать в цикле по файлу

if (s[i]//слово in mn1sl//множество букв из первого слова) then записываем в новый массив.