Как считать строки как массив.

rust-02

Имеется текстовой файл с содержанием: Hello How are you GoodbyeКак считать этот текстовой файл как массив. Например a[1]=Hello a[2]=How are you a[3]=GoodByeнаписал код:
program Project43;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var z:textfile;
i:integer;
a:array [1..3] of string;
begin
AssignFile(z,'C:\Documents and Settings\Рустем\Мои документы\321.txt');
reset(z);
i:=1;
while not eof(z) do
begin
 while not eoln do
 begin
 read(z,a[i]);
 inc(i);
 end;
end;
writeln(a[1]);
read;
readln
end.
Что тут не правильно?
1 ответ

rust-02

program Project43;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  z:textfile;
  i:integer;
  a:array [1..3] of string;
begin
  AssignFile(z,'C:\Documents and Settings\Рустем\Мои документы\321.txt');
  reset(z);
  i:=1;
  while ( not eof(z) ) and ( i <= 3 ) do
  begin
    //Читаем целую строку и переводим файловый указатель к следующей строке.
    Readln(z,a[i]);
    writeln(a[i]);
    inc(i);
  end;
  CloseFile(z);
  readln;
end.