Чтение из файла

[kop]

В чем может быть проблема?? считываю данные из файла, и одновременно записываю их в массив, а когда хочу проверить, что записалось в массив-там пусто
Код:

{$APPTYPE CONSOLE}

var fepas:Text;
 l:array[1..5] of string;
 a:string;
 I:Integer;


begin

  Assign(fepas,'d:\fedos');
  Reset(fepas);
  for I:=1 to 5 do
  begin
  Readln(fepas,a);
    Writeln(a);
    a:=l[i];  // записываем каждую строку в i -строку массива
  end;
  Close(fepas); // закрытие файла
     Writeln('fff');
     for i:=1 to 5 do
  begin
   Writeln(l[i]);  // вывод из строк массива данные.
     end;

  Readln;
    Readln;


end.

[profi]

Замени

Assign(fepas,'d:\fedos');
Reset(fepas);
for I:=1 to 5 do
begin
Readln(fepas,a);
Writeln(a);
a:=l[i]; // записываем каждую строку в i -строку массива
end;

на это

Assign(fepas,'c:\fedos.txt');
Reset(fepas);
for I:=1 to 5 do
Readln(fepas,l[i]);

и создай файл fedos.txt, заполни его строками.

[kop]

Поменял на это... воть тока есть впоросик.. почему когда я меняю в конце (I:= 1 to 6 do) он мне все равно выводит 6-элемент массива хотя...(l:array[1..5] of string--- а массив рассчитан на 5 строк... он должен был вывести 6-строку просто пусто?

КОД:

{$APPTYPE CONSOLE}

var fepas:Text;
 l:array[1..5] of string;
 a:string;
 I:Integer;


begin

  Assign(fepas,'d:\fedos');
  Reset(fepas);
  for I:=1 to 6 do
  begin
  Readln(fepas,l[i]);

    end;
  Close(fepas); // çàêðûòèå ôàéëà
     Writeln('fff');
     for i:=1 to 6 do
  begin
   Writeln(l[i]);  // âûâîä èç ñòðîê ìàññèâà äàííûå.
     end;

  Readln;
    Readln;


end.

А куда он записывает данные из файла? Даже когда ставишь размер массива от (1..1) он все равно выводит 5-6-7... элемент массива или он это все в оперативку загоняет? и тут размер массива большой роли не играет?

From Stilet: Код у нас выделяется по клику на кнопку # в панели инструментов поста. И попрошу не постить два своих поста подряд.