Delphiben hogy tudok feldarabolni egy . Txt fájlt?

var a : array [1..10,1..10] of string[4];

Erre gondoltál ugye?

var i,j:byte; s:string;

i := 1;

while not( eof(f) ) do

begin

readln(f,s);

for j:=0 to 9 do

a[i,j+1] := copy(s, j*4 +1, 4);

inc(i);

end;

Ez Pascalos, de kisebb módosításokkal fog működni Delphiben is. Cinsálj te is annyit, hogy átírod Delphire, legalább jobban meg is érted a működését... :)