[DedAlex]

Для варианта без пробелов

Код:

var
  level : array [1..20, 1..20] of integer;
  lvl : textfile;
  s : string;
  i, k : byte;
begin
  AssignFile(lvl, 'txt.txt');
  Reset(lvl);
  begin
    for i := 1 to 20 do
    begin
      ReadLn(lvl, s);
      for k := 1 to 20 do
        level[k,i] := StrToInt(s[k]);
    end;
  end;
  CloseFile(lvl);
end;