[Resolvido] [PASCAL]Gerenciar membros de um clan

Olá, mais uma vez venho tirar algumas duvidas sobre o pascal ¬¬

Estou criando um programinha para: Cadastrar um membro criando um arquivo de texto com sua ficha

*Editar ficha a partir do programa

*Remover ficha

Seguinte... consegui fazer para ele criar o arquivo de texto com a ficha... mas ele só grava onde está o executavel.. nao to conseguindo fazer ele criar o txt em qualquer outro diretorio do hd||| Não consegui fazer ele editar a ficha a partir do proprio programa, ou seja, abrir o arquivo de texto escolhido pelo usuario do programa, edita-lo e salvar as alteraçoes Um problema sério é que ele nao cria tipo Ficha001 e depois Ficha 002... ele simplismente atualiza o q ja existe ¬¬

Por ultimo queria saber como fazer o programa procurar um arquivo para remover.. ou seja.. eu digito tipo.. ficha01.txt e ele vai e deleta essa ficha.

segue o codigo:

Program Pzim;
 VAR//Variáveis**
 Registro:text;
 nome,rank,nickname,cidade_e,tempo,idade,status:string;
 opcaoexe:integer;

 Begin //Início do Programa
 assign(Registro,'Ficha_Membro.txt');
 rewrite(Registro);
 writeln('=====|| Gerenciamento de Membros ||=====');
 writeln('===== =====');
 writeln('===== VGS - Vengeance Shooters =====');
 writeln('========================================');
 writeln('--- Menu de Navegação ---');
 writeln('');
 writeln('[1] Adicionar Membro');
 writeln('[2] Editar Conta');
 writeln('[3] Remover Conta -manutencao-');
 writeln('--------------------');
 writeln('Digite o número relativo à função para executar.');
 writeln('==============================================||');
 read(opcaoexe);
 //Adicionar Membro
 if opcaoexe=1 then
 begin
 writeln('========== Ficha do Membro ==========');
 writeln('Nome Completo:');
 read(nome);
 writeln('Nickname:');
 read(nickname);
 writeln('Idade:');
 read(idade);
 writeln('Cidade/Estado:');
 read(cidade_e);
 writeln('Quanto tempo joga GTA SA:');
 read(tempo);
 writeln('Rank(Fundador,ADM,SUB_ADM,Comum):');
 read(rank);
 writeln('Status(ATIVO,INATIVO):');
 read(status);
 writeln(Registro,'== Ficha do Membro ==');
 writeln(Registro,'=========================');
 writeln(Registro,'Nome:',' ',nome);
 writeln(Registro,'Nickname:',' ',nickname);
 writeln(Registro,'Idade:',' ',idade);
 writeln(Registro,'Cidade/Estado:',' ',cidade_e);
 writeln(Registro,'Rank:',' ',rank);
 writeln(Registro,'Tempo de Jogo:',' ',tempo);
 writeln(Registro,'STATUS:[',status,']');
 writeln(Registro,'=================== Fim');
 close(Registro);
 end;
 End.

Por favor respodam as perguntas meio q indiretas que estao em negrito""

VLW http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif