Символьные строки

[andriy1048]

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

[Poma][a]

Друже, а язык какой?

[andriy1048]

На Delphi, в форме нужно)

Помогите пожалуйста)

[newerow1989]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type tzn=set of char;
const zn:tzn=[' ','.',',',';',':','?','!'];

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    c:char;
    i,j,hi,l,l0:integer;
    p:array of string;
begin
   s:=Edit1.Text;
   c:=Edit2.Text[1];
   Label1.Caption:='';
   s:=s+' ';
   hi:=0;
   j:=1;
   For i:=1 to Length(s) do
      If s[i] in zn then
      begin
         l:=i-j;
         If l>0 then
         begin
            hi:=hi+1;
            SetLength(p,hi);
            p[hi-1]:=Copy(s,j,l);
         end;
         j:=i+1;
      end;
   l0:=0;
   For i:=0 to hi-1 do
   begin
      l:=0;
      For j:=1 to Length(p[i]) do
         If p[i][j]=c then
            l:=l+1;
      If l0<l then
         l0:=l;
   end;
   For i:=0 to hi-1 do
   begin
      l:=0;
      For j:=1 to Length(p[i]) do
         If p[i][j]=c then
            l:=l+1;
      If l0=l then
         Label1.Caption:=Label1.Caption+p[i]+#13#10;
   end;
end;

end.

Сойдет?

Вот образец:

Мама мыла раму. Папа раскрасил окно!

Символ "а"

[andriy1048]

Спасибо))) Работает)

[newerow1989]

Пожалуйста!