{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
{
-Programa 5
-Lee un archivo de texto, y lo graba en otro
 en mayusculas
}
uses
 crt;
const
 ARCHIVO='ARCHIVO5.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 5',1);
 titulo('>Duplica un archivo de texto, pero en mayusculas<',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);
       palabra:=concat(palabra,Caracter);
      until (caracter=' ') OR (eof(Letras)=true);
       append(f2);
       palabra:=upcase(palabra);
       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.