procedure TForm1.Button3Click(Sender: TObject);
var
x : integer;
temp : string;
begin
x:= 0;
temp := memo1.text;
      while pos(' ',temp) > 0 do
      begin

           if length(copy(temp,x - 1, Pos('',temp)-1)) < 3 then
           begin
           delete(temp,x,pos(' ',temp)-1);
           x := x + length(copy(temp,x -x,pos(' ',temp)))+1;
           Showmessage(inttostr(x));
           end
         else
          begin


         x := x + length(copy(temp,x, pos (' ',temp)))+1;
         Showmessage(inttostr(x));
         //delete(x);
         end;
               if x > length(memo1.text) then
               begin
               memo2.text := temp;
               exit;
               end;
      end;
end;