Ajuda pascal (ficheiros) urgente !!!

Gomez123

Membro
Program Trabalho;
Var nome ,prefixo:string;
fich :Text;
begin
writeln('INTRODUZA:');
write('Nome do ficheiro: ');
readln(nome);
nome:=nome+'.txt'; // nome.*txt
assign (fich, nome);
Append (fich);
rewrite (fich);
writeln (fich,'12345');
Writeln(fich,'c100,Estela,Viseu ');
Writeln(fich,'c101,Bela,Faro');
Writeln(fich,'c102,Lucia,Setubal');
Writeln(fich,'c103,Manuela,Evora');
Writeln(fich,'c104,Carla,Castelo Branco');
Writeln(fich,'c105,Bruno,Braga');
Writeln(fich,'c106,Alberto,Lisboa');
Writeln(fich,'c107,Elvira,porto');
Writeln(fich,'c108,Luis,porto');
Writeln(fich,'c109,Filipe,Madeira');
Writeln(fich,'c110,vera,Santarem');
Writeln(fich,'c111,Joao,Braga');
Writeln(fich,'c122,Antunes,Aveiro');
Writeln(fich,'c133,Belmiro,Braga');
Writeln(fich,'c144,Ludmila,Lisboa');
Writeln(fich,'c155,Pereira,Porto');
Writeln(fich,'c166,Ana,Coimbra');
Writeln(fich,'c177,casimiro,Braganca');
Writeln(fich,'c166,Ana,Coimbra');
Writeln(fich,'c188,Camila,Lisboa');
Writeln(fich,'c199,Fereira,Leiria');
close (fich);
writeln ('Que prefixo deseja guardar o ficheiro?');
read (prefixo);
Rename(fich, prefixo);
end.




Tenho um erro que me esta impedir de acabar e gostaria de pedir ajuda se alguem me pode ajudar, da-me o erro no Rename e diz que o identificador rename nao foi declarado dentro do escopo para a função program.
 
Back
Topo