Считывание текстового файла

[Waqq]

Всем доброго времени суток!!!
Подскажите как считать текстовый файл такого содержания

0 0 0
0 0 0
1 1 1

Вот пример моего кода но он почему то не работает(

var
   f : TextFile;
   S : String;
   i: integer;
   X,Y,Z:array [0..2] of integer;

begin
AssignFile(F, 'test.txt');
Reset(f);
for i:=0 to 2 do
begin
ReadLn(f,X[i],Y[i],Z[i]);
end;
CloseFile(f);
end;

В заранее благодарен!!!

[Sibedir]

Вроде все нормально. Ошибки вылитают или просто не считывает то, что нужно?
Скорее всего не находит файл. Попробуй

AssignFile(F, ExtractFilePath (Application.ExeName) + 'test.txt');

[Waqq]

Приложение постоянно выдает значение Y и Z равным 0

[Sibedir]

У меня все работает. А с чего вы взяли, что там 0-ли. Как проверяете?

[Waqq]

Большое спасибо нашел свою ошибку))