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

[Need_Help]

Задача: нужно отобразить на экране простейший массив, находящийся в My.txt . Выдаёт ошибку 64 cannot read or write...

Program OpenMass;
const N=3;
var
f:text;
s : array [ 1 ..N] of integer;
begin
assign(f,'h:\bp\bin\Moi pro\my.txt'); { Путь к файлу правильный }
reset(f);
read(f,s);
writeln(s);
close(f);
end.
P. S. Мой файл с массивом my.txt содержит всего 3 числа, разделенные пробелом: 4 3 10

Need_Help

[Shuraken]

f: TextFile
и все.

[НЕ_АЙС]

Shuraken обрати внимание на тему....это не дельфи....какой TextFile

Program OpenMass;
const N=3;
var
f:text;
s:array [1 ..N] of integer;
i:integer;
begin
Assign(f,'h:\bp\bin\Moi pro\my.txt'); { Путь к файлу правильный }
Reset(f);
for i:=1 to N do
begin
Read(f,s[i]);
WriteLn(s[i]);
end;
Close(f);
ReadLn;
end.

[Мефистофель]

Попробуй в var прописать что f:file of text

[Need_Help]

Спасибо Не_Айс. Программа теперь работает правильно.

[Кролик]

Еще бы стоило сделать проверку числа:
var
St: string;
ErrorCod: integer;
..
Val(St,S[I],ErrorCod);
If ErrorCod <> 0 then {Здесь выдаётся сообщение об ошибке}