procedure TForm1.Button1Click(Sender: TObject);
var laenge, laenge1, laenge2 : Real;
     arrayzahl, x1, y1, x2, y2, s, i : Integer;
     tabelle : array of string;
     text2, text : string ;
begin
 laenge:=length(text);
 laenge1:=sqrt(laenge);
 laenge2:=round(laenge1);
 arrayzahl:=trunc(laenge2);
 x1:=0;
 y1:=0;
 s:=1;
  for i:=1 to arrayzahl do begin
   tabelle[x1,y1]:=text[s];
   x1:=x1+1;
   s:=s+1;
    if x1=arrayzahl then begin
     x1:=0;
     y1:=y1+1;
    end;
  end;
 x2:=0;
 y2:=0;
  for i:=1 to arrayzahl do begin
   text2:=text2+tabelle[x2,y2];
   y2:=y2+1;
    if y2=arrayzahl then begin
     y2:=0;
     x2:=x2+1;
    end;
  end;
 edit2.Text:=text2;
end;