Object Pascale

unit Unit1;
 
interface
 
uses
  Windows,XPMan, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;
 
type
  TForm1 = class(TForm)
    mmo1: TMemo;
    pm1: TPopupMenu;
    d1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    dlgOpen1: TOpenDialog;
    btn1: TButton;
    procedure N4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N4Click(Sender: TObject);
begin
 Form1.Close;
end;
 
 
 
 
procedure TForm1.btn1Click(Sender: TObject);
 
var s: string;
     f:TextFile;
begin
//dlgOpen1.filter:='текст.файлы*.txt';
if dlgOpen1.Execute and FileExists(dlgOpen1.FileName)
 then
  begin
    Assignfile(f,dlgOpen1.FileName);
    Reset(f);
    mmo1.Lines.Clear;
    while not Eof(f) do
     begin
       Readln(f,s);
       mmo1.Lines.Add(s)
     end;
  //   Close(f);
  end;
end;
 
procedure TForm1.N1Click(Sender: TObject);
var
  Sl,s: TStringList;
  j, len1,len2: integer;
  min, max, len, i : integer;
     str, max_str, min_str : string;
begin
  Len1 := 0;
  Sl  := TStringList.Create;
  s  := TStringList.Create;
  Sl.CommaText := mmo1.Text;
  for j := 0 to Sl.Count - 1 do
    begin
    Sl[j] := Trim(Sl[j]);
    Inc(len1, Length(Sl[j]));
    end;
 
   len2:=len1 div Sl.Count;
  ShowMessage(Format('sredn9ja dlina slova = %d',[len2 ]));
 
  Sl.Free;
 
max := 0; //# обнуляем переменную
 
len := 0; //# обнуляем переменную
max_str := '';// # обнуляем переменную
min_str := ''; //# обнуляем переменную
str := ''; //# обнуляем переменную
for i:=1 to s.count-1 do //# циклом проходимся по всей строке - от 1-го символа и до последнего
    if s[i]<>' ' then
     begin //# если символ не является пробелом, то:
 
        inc(len); //# увеличиваем длину слова на 1
        str := str + s[i]; //# присваеваем текущий символ строке, по одному символу будет собираться слово полностью
     end
     else
      begin
        if (len<=len2)then
           begin //# если длина последнего найденного слова больше предыдущего (максимального)
            max := len; //# присваеваем длину этого слова
            max_str := str; //# а это само слово которое собирали по одному символу
            mmo1.Lines.Clear;
            mmo1.Lines.add(str);
 
           end;
    end;
           end;
 
end.

procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute then mmo1.LoadFromFile(dlgOpen1.FileName);
end;