Как ваставить файл.тхт в массив

[Devolick]

Бога ради хоть кто то помогите найти ошибку!!! Умоляю вас ребята...

uses crt;
var
  pin:array[1..22,1..60] of char;
  i,j:integer;
  input:text;
  symbol:string;

  


begin  
        clrscr;
        assign(input,'C:\level\level1.txt');
        reset(input);
        i:=1; j:=0;
        

        while not Eof(input) do
            begin 
                readln(input,symbol);
                for j:=1 to 60 do
                  begin
                      if (length(symbol)>=j) then
                        pin[i,j]:=symbol[j]
                      else  
                        pin[i,j]:='-';  
                  end;
                 i:=i+1; 
            end; 
          
          
               for i:=1 to 22 do
          begin 
              for j:=1 to 60 do
                  begin
                      write(pin[i,j] );
                  end;
                  writeln;
          end;          
 end.

[Serge_Bliznykov]

тут очень важно, КАК у Вас символы храняться в вашем файле level1.txt

запакуйте этот файл в архив и выложите на файлообменник (сюда на форум ссылку на скачивание) или, если у Вас уже есть права - можете прикрепить архив прямо к своему сообщению на форуме (при ответе - расширенный режим - управление вложениями...)

[Hacker19_90]

Интересно само название темы

Как ваставить файл.тхт в массив

))
Ладно не суть!
Проблема в том, что надо подключить модуль секретный

uses
    Telepat;

)) (все поняли про что я)
Ну и файл закрывать после использования

close (input);