Уважаемые господа программисты пожалуйста помогите решить задачку...

[LEGENDA777]

Требуется Разработать программу «Строки», которая читает произвольные строки длиной до 80 символов, разбивает их по словам (подстрока между двумя пробелами), находит максимальное слово и выводит его в Edit.

Этот кусочек только находит самое длинное слово что поменять:

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string;
n,i,j,k,mx:integer;
begin
s:=Memo1.Text;
n:=length(s);
mx:=0;
i:=1;
while i<=n do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
begin
j:=i;
s1:='';
while(j<=n)and(s[j]<>' ') do
begin
s1:=s1+s[j];
j:=j+1;
end;
k:=0;
for j:=1 to length(s1) do
if s1[j] in ['A'..'Z','a'..'z','А'..'я','Ё','ё'] then k:=k+1;
if k>mx then
begin
mx:=k;
s2:=s1;
end;
i:=i+length(s1);
end
else i:=i+1;
Edit1.Text:=s2;
end;

[doktor255]

А что не устраивает?