[Delirium]

Эээххх, ну не знаю я Дельфи. Ладно, давай посмотрим, что там происходит...

Код:

var
  level : array [1..20, 1..20] of integer;  -- массив 20 на 20
  lvl : textfile;                                       -- наш текстовик
  s : string;                                           --строковая переменная, в которой будет текущая строка из файла
  i, k : byte;                                          --переменные  
begin
  AssignFile(lvl, 'txt.txt');                        --закинули наш файл в lvl
  Reset(lvl);                                           --это не знаю чего.
  begin
    for i := 1 to 20 do
    begin
      ReadLn(lvl, s);                                 --Записали строку в S
      for k := 1 to 20 do                           --цикл по  строке S
        level[k,i] := StrToInt(s[k]);            --пишем в массив элемент
    end;
  end;
  CloseFile(lvl);
end;

Таак, погуглил малость. Причина банальна, цитирую:

ты или фаил не создал, или ты его открыл и запускаеш прогу, что вероятней всего!