[Страдалецъ]

Ну а вот такой вариант устроит?

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

Var
  Data, Row: TStringList;
  R,C: Integer;
  Matrix: Array of Array of Integer;
begin
 Data := TStringList.Create;
 Data.LoadFromFile('C:\11\nodes.txt');
 Data.Delete(0);
 SetLength(Matrix, Data.Count);
 for R := 0 to Data.Count - 1
 do begin
    Row := TStringList.Create;
    Row.Text := StringReplace(Data.Strings[R],#32,#13,[rfReplaceAll]);
    SetLength(Matrix[R], Row.Count);
    for C := 0 to Row.Count - 1
    do Matrix[R,C] := StrToIntDef(Row[C], 0);
    Row.Free;
    end;
 Data.Free;
 for R := 0 to High(Matrix)
 do begin
    for C := 0 to High(Matrix[R])
    do Write(Matrix[R,C]:3);
    WriteLn;
    end;
 ReadLn;
end.