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

[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.

[sheka]

Два раза пишешь чтобы уж точно кто-то да прочитал?
Ну пользуйся F7, F8 - тоже 2, но замечательные кнопки.

Как минимум ты файл не закрыл.
readln(input,symbol); может здесь просто read?


Сообщение отредактировано: sheka - 14.01.2012 20:06