[Trosh]

кто знает почему прога виснет?
В заданном предложении переставить слова в порядке возрастания их длины.

Код:

var
  Form1: TForm1;
  S : String;
  I, J : Integer;
  A : Array Of String;
  Idx : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 S:=Edit1.Text;
  // 8.18
  SetLength(A,0);
  Idx := Pos(' ',S);
  While Idx > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := Copy(S,1,Idx-1);
      S := Copy(S,Idx+1,Length(S));
    End;
  If S <> '' Then
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := S;
    End;
    Memo1.Lines.Add(S);