Текстовый файл

[Elllektra]

Только начала изучать Pascal, помогите разобраться, пожалуйста
В общем, нужно создать программу, чтобы она считывала с файла информацию, и имеющиеся в нем цифры заменяла на буквы, и записывалал в другой файл. файлы созданы на жестком диске.

Вот то, что придумала я, но программа выдает ошибку.

Program Text_file;
uses crt;
Var
f,g:text;
c:char;

begin
clrscr;
assign(f, 'E:\1.txt');
assign(g, 'E:\2.txt');
Reset(f);

while not eof (f) do
begin
Read(f,c);
if c='1'then c:='a';
if c='2'then c:='y';
if c='3'then c:='s';
if c='4'then c:='d';
if c='5'then c:='u';
if c='6'then c:='z';
if c='7'then c:='c';
if c='8'then c:='h';
if c='9'then c:='e';
if c='0'then c:='t';

write(g,c);
close(f);
close(g);
end;
end.

[Alex Cones]

close(f);
close(g);

Вынесите перед последним end
И не забудьте rewrite(G); после его Assign

[Elllektra]

Не помогло.
Ошибка такая: File not open for output

[Elllektra]

Сделала:

Program Tex_file;
uses crt;
Var
f,g:text;
c:char;
S:string;
Poisk:boolean;
begin
clrscr;
assign(f, 'E:\1.txt');
assign(g, 'E:\2.txt');
Rewrite(g);
Reset(f);

while not eof (f) do
begin
Read(f,c);
if c='1' then c:='a';
if c='2' then c:='y';
if c='3' then c:='s';
if c='4' then c:='d';
if c='5' then c:='u';
if c='6' then c:='z';
if c='7' then c:='c';
if c='8' then c:='h';
if c='9' then c:='e';
if c='0' then c:='t';
write(g,c);
end;
close(f);
close(g);
end.