Файлы

[maks5]

Я хочу создать файл, записать в него, и его прочитать. Записать получается, а не читает пишет ошибку «file not open» . Может я что то не так делаю?
program hh;
Var
f:text;
BEGIN
assign(f,'ir');
rewrite(f);
writeln(f,'jhgb');
close(f);
reset(f);
read(f);
writeln(f);
close(f);
readln;
end.

[Hacker19_90]

program hh;
Var
f:text;
s: string;
BEGIN
assign(f,'ir');
rewrite(f);
writeln(f,'jhgb');
close(f);
reset(f);
read(f, s);
writeln(s);
close(f);
readln;
end.

[maks5]

Спасибо! получилось.