Как ваставить файл.тхт в массив... помогите пожалусто,срочно нужно!

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.