Дана непустая последовательность слов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var massSLOV:array [1..1000] of string;
str,sort1,sort2:string;
endslova,srav:word;
ImassSLOV:1..1000;
i,i1,i2:word;
vhozhdenia:word;
begin
str:=Edit1.Text;
endslova:=0;
ImassSLOV:=1;
  for i:=1 to Length(str) do
    if (str[i]=' ') or (str[i]='.') then
      begin
      massSLOV[ImassSLOV]:=copy(str,(endslova+1),(i-endslova-1));
      inc(ImassSLOV);
      endslova:=i;
      end;
for i1:=1 to ImassSLOV-1 do
 for i:=1 to ImassSLOV-2 do
 begin
 sort1:=massSLOV[i];
 sort2:=massSLOV[i+1];
if Length(sort1)>length(sort2) then srav:=Length(sort2) else  srav:=Length(sort1);
for i2:=1 to srav do
if sort1[i2]<sort2[i2] then break else
 if  sort1[i2]>sort2[i2] then
  begin
   massSLOV[i]:=massSLOV[i+1];
   massSLOV[i+1]:=sort1;
   break;
  end;
 end;
 
for i:=1 to (ImassSlov-1) do
  begin
  vhozhdenia:=0;
  for i1:=1 to (ImassSlov-1) do
    if(massSlov[i]=massSlov[i1]) then
    begin
     inc(vhozhdenia);
     if  vhozhdenia>1 then  massSLOV[i1]:='000';
    end;
  if not (massSLOV[i]='000') then
  Memo1.Lines.Add(IntToStr(vhozhdenia)+' '+massSLOV[i]);
  end;
end;
 
end.

...
if (str[i]=' ') or (str[i]='.') then
....

...
if (str[i]=',') or (str[i]='.') then
....