Лаба в Delphi

[сер4ей]

Вот мой код, что мне надо исправить что бы заменить самое длинное слово на самое короткое, в одном Edite, т.е. взять вырезать часть строки до длинного слова и после длинного слова и вставить обратно: до длинного слова+самое короткое слово+после самого длинного слова

procedure TForm1.Button1Click(Sender: TObject);
var s:String; maxw,j,e,r,minr,t,w,q:integer;

begin
s:=Edit1.Text;

j:=1;
maxw:=0;
minr:=0;
r:=1;

while (j<Length(s)) do
begin
while (s[j]=' ') and (j<Length(s)) do j:=j+1;
e:=j;
w:=0;
if (j<length(s)) then
while (s[j]<>' ') and (j<length(s)) do w:=w+1;
if w>maxw then maxw:=w;
end;

while (j<Length(s)) do
begin
while (s[j]=' ') and (j<Length(s)) do t:=t+1;
q:=t;
r:=0;
if (j<length(s)) then
while (s[j]<>' ') and (j<length(s)) do r:=r+1;
if r<minr then minr:=r;
end;
end;
end.
а дальше я не знаю как????

[сер4ей]

буду очень благодарен

[Minotavr_x86]

while (j<Length(s)) do
begin
  while (s[j]=' ') and (j<Length(s)) do j:=j+1;
  e:=j;
  w:=0;
  if (j<length(s)) then
    while (s[j]<>' ') and (j<length(s)) do
      begin
        w:=w+1;
        j:=j+1;
      end;
  if w>maxw then
    begin
      maxfirst:=e; //это номер первого символа
      maxw:=w;
    end;
end;

Минимальное слово по аналогии.
Я бы сделал сначала массив слов, а потом с ними работал.

[сер4ей]

а как в одном Edite, взять вырезать часть строки до длинного слова и после длинного слова и вставить обратно: до длинного слова+самое короткое слово+после самого длинного слова