1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

// hebräische Methode
function hebCryption(text:string):string;
var i,x,y,pos:word;
    Feld: Array of Array of string;
    textlength,feldsize:integer;
begin
  result := '';
  
  // Größe des 2D-Arrays bestimmen & Array voreinstellen
  textlength := length(text);
  feldsize := ceil( sqrt(textlength) );
  setlength(Feld,feldsize);
  for i := 0 to feldsize-1 do
    setlength(Feld[i],feldsize);
  for x := 0 to feldsize-1 do
    for y := 0 to feldsize-1 do
      Feld[x,y] := '';

  // Feld zeilenweise füllen
  x := 0;
  y := 0;
  for i := 1 to textlength do
  begin
    Feld[x,y] := text[i];
    inc(x);
    if x>feldsize-1 then
    begin
      x := 0;
      inc(y);
    end;
  end;

  // Feld spaltenweise auslesen
  for x := 0 to feldsize-1 do
    for y := 0 to feldsize-1 do
    begin
      result := result + Feld[x,y];
    end;
end;					

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := hebCryption(Edit1.Text);
  Edit3.Text := hebCryption(Edit2.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

S := Ceil(Sqrt(Length(Text)));

For X := S - 1 downto 1 do
  For Y := 0 to S - 1 do
  Begin
    Result := Result + Text[1 + X * Y];
    Delete(Text, 1 + X * Y, 1);
  end;

Result := Result + Text;