Найти самое длинное и короткое слово в строке

J:=1;
while length(stroka)<>0 do
begin
 for i:=1 to length(stroka) do
 begin
  if stroka[i]=' ' then
   begin
    slovo[j]:=copy[stroka,1,i-1];
    delite(stroka,1,i);
    j:=j+1;
    break; //выход из цикла
   end;
 if i = length(stroka) then
   begin
    slovo[j]:=copy[stroka,1,i];
    delite(stroka,1,i);
    break; //выход из цикла
   end;
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
    sk,sd:string;
    k,d,i,j,p:byte;
begin
s:=Edit1.Text;
i:=1;
d:=0;{длина длинного слова }
k:=255;
while i<=length(s) do
if (s[i]<>' ')and((i=1)or(s[i-1]=' ')) then {если не пробел и первый или перед ним пробел}
 begin
  s1:='';{будем составлять слово}
  j:=i;
  p:=0;
  while (j<=length(s))and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)<k then{если меньше короткого}
   begin
    sk:=s1;{это короткое}
    k:=length(s1);{его длина}
   end;
  if length(s1)>d then{то же с длинным}
   begin
    sd:=s1;
    d:=length(s1);
   end;
  i:=i+length(s1);
 end
else i:=i+1;
Edit2.Text:='Самое короткое слово '+sk;
Edit3.Text:='Самое длинное слово '+sd;
 
end;
 
end.