Buchstabenmatrix erstellen?!

[Kroko1999]

Delphi-Quellcode:

type
  TChar3Array = array[0..2,0..2] of Char;

procedure FillArray (var A: TChar3Array; S: String);
var
  I,J,P,L: Word;
begin
  L := Length (S);
  for J := 0 to 2 do
    for I := 0 to 2 do
     if P<=L then 
       begin
         A[I,J] := S[P];
         Inc (P);
       end;
end;

FillArray (A,'aaaaaaabc');