Найти и напечатать все слова строки, в которые заданный символ входит наибольшее количество раз

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  c:char;
  l:TStringList;
  t,s:string;
  i,j,k,m:integer;
function csimv(s:string;c:char):integer;
var
  i,j:integer;
begin
  j:=0;
  for i:=1 to length(s) do
    if s[i]=c then j:=j+1;
  result:=j;
end;
begin
  c:=inputbox('Введите','символ:','a')[1];
  l:=TStringList.Create;
  l.Clear;
  t:='';
  s:=Memo1.Text+' ';
  for i:=1 to length(s) do
    if pos(s[i],' ,.:!?-')=0 then t:=t+s[i] else
      if t<>'' then begin
        l.Add(t);
        t:='';
      end;
     m:=0;
   for i:=0 to l.Count-1 do begin
     j:=csimv(l[i],c);
     if m<j then m:=j;
   end;
   ListBox1.Clear;
   if m=0 then ShowMessage('Нет слов, содержащих букву "'+c+'"') else
     for i:=0 to l.Count-1 do if csimv(l[i],c)=m then ListBox1.Items.Add(l[i]);
   l.free;
end;
 
end.