Разработать программу, которая находит и печатает все слова, входящие в текст по одному разу

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
 
  public
 
  end;   
procedure TFS.Button1Click(Sender: TObject);
CONST m=[' ',',',';','.','!','?',':'];
VAR s: string;
    p, i, j: integer;
    f: boolean;
BEGIN
s:=Edit1.Text;
   i:=1;
   repeat
       while s[i] in m do i:=i+1;
       p:=i;
       while not (s[i] in m) and (i <= length (s)) do
       i:=i+1;
    j:=p; f:=false;
        while (j <= i-2) and (not f) do
        if s[j]=s[j+1] then  f:=true else j:=j+1;
    if f then begin delete (s, p, i-p); i:=p; end;
   until i >= length (s);
    Edit2.Text:=s;
end;
end;