Hace un inventario, altas, bajas, consultas, y modificaciones

pascal:
{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
{
-Programa 6
-Programa que hace un inventario:
 altas,bajas,modificaciones,consultas,reportes!!!
}
uses
 crt;
const
 ARCHIVO='AJENDA.TXT';{Unicamente lo leera, no lo modificara}
type
 F=TEXT;
var
 Letras,f2:F;
 Caracter:char;
 palabra:string;
procedure titulo(titulo:string;y:integer);
 begin
  gotoxy(trunc((80/2)-(length(titulo))/2),y);
  write(titulo);
 end;{Procedure titulo}

begin{Programa Principal}
 ClrScr;
 titulo('Programa 6',1);
 titulo('>Agenda<',2);
 writeln;
 {*--->Asigno el ARCHIVO a Letras(El que voy a leer)<---*}
 assign(Letras,ARCHIVO);
 assign(f2,'copia5.txt');
 {*--->Intento crear los archivo<---*}
 {$I-}
  reset(Letras);
 {$I+}
  if ioresult=0 then {} else rewrite(Letras);
 reset(Letras);
 rewrite(f2);{creo el archivo dos o copia, como nuevo}
 reset(f2);
 {*---><---*}
 {append(f2);{abro f2, para escritura}
 {*--->Intento leer Letras caracter por caracter<---*}
  palabra:='';
  while not eof(Letras) do
   begin
    while not eoln(Letras) do
     begin
      repeat
       append(f2);
       read(Letras,Caracter);
       close(f2);
       caracter:=upcase(caracter);
       palabra:=concat(palabra,Caracter);
      until (caracter=' ') OR (eof(Letras)=true);
       append(f2);
       write(f2,palabra);
       {*--->Mostra en pantalla palabra por palabra<---*}
       delay(50);write(palabra);
       {*---><---*}
       palabra:='';
       close(f2)
     end;{while not eoln}
    readln(Letras);
    append(f2);
    writeln(f2);
    close(f2);
   end;{while not eof}
  Close(Letras);
 {*---><---*}
 ReadKey;
end.
 
1.- Altas 2.- Bajas 3.- Modificaciones 4.- Consulta 5.- Salir opc: 1 Nombre: Victor De la Rocha Apodo: Alexa 1.- Altas 2.- Bajas 3.- Modificaciones 4.- Consulta 5.- Salir opc: 4 Reg 1: Victor Manuel, Alias el: Alexa 1.- Altas 2.- Bajas 3.- Modificaciones 4.- Consulta 5.- Salir opc: 4
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P