Написать программу которая ищет слова с определенной буквой и записывает в другой файл и при этом удаляет повторяющиеся слова

var
  Form1: TForm1;
  t1,t2:TStringlist;
  p:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const rz=[' ',',','.','?','!',';',':'];//разделители слов
                                       //добавить по тексту
var c,s,s1:string;
    a,n,i,j:integer;
begin
if length(Edit1.Text)<>1 then
 begin
  ShowMessage('Введите 1 букву для поиска');
  exit;
 end;
c:=Edit1.Text; //наша буква
t1:=TStringlist.Create;//создаем список для текста
t2:=TStringlist.Create;//и для слов
t2.Sorted:=true;//разрешим сортировать слова
t2.Duplicates:=dupIgnore;//игнорируем дубликаты
if OpenDialog1.Execute then//выбираем файл
t1.LoadFromFile(OpenDialog1.FileName);//грузим в список
p:=0;//нет нужных слов
for a:=0 to t1.Count-1 do//смотрим построчно
 begin
  s:=t1.Strings[a];
  i:=1;
  n:=Length(s);
  while i<=n do //если не разделитель и первый или перед ним разделитель
  if not(s[i] in rz)and((i=1)or(s[i-1] in rz))then
   begin
    s1:='';//новое слово
    j:=i;
    while(j<=n)and not(s[j] in rz) do
     begin
      s1:=s1+s[j]; //составляем
      j:=j+1;
     end;
    if pos(c[1],s1)>0 then //если есть буква
     begin
      p:=1;//фиксируем
      t2.Add(s1); //запишем в список
     end;
    i:=i+length(s1);//перешагиваем через слово
   end
  else i:=i+1; //пропускаем разделители
 end;
 
end;
//запись в файл
procedure TForm1.Button2Click(Sender: TObject);
begin
if p=0 then t2.Add('Слов с заданной буквой нет');
if SaveDialog1.Execute then //выбираем файл
t2.SaveToFile(SaveDialog1.FileName);//выгружаем в файл
end;

t2.Sorted:=true;//разрешим сортировать слова
t2.Duplicates:=dupIgnore;//игнорируем дубликаты