[Pascalizado]

Hola amigos del foro, aqui posteo un viejo codigo que cuando quise programar un programa para borrar el '.' de la extensión un archivo, es un desastre, lo más gracioso fue que al otro dia me levante y lo reprograme de 0 y lo termine en 10 min, mientras que con este luche unos 30 min, jajaj.
bueno aqui tienen el codigo:

program Hastaluego;

uses
Crt,SysUtils,StrUtils;

var
Dire:String;

procedure Busco (Dir:String);

 var
 Datos: TSearchRec;

 procedure Reemplazo (Archivo:String);
   var
   ext:string[4]; 
   aux:String;
   i:Integer;
   NotArch:String='.DOC .SXW .WBK .XLS';

   begin 
   aux:='';
   ext:=Uppercase(ExtractFileExt(Archivo));
   if findPart(ext,NotArch)<1 then
    begin
    aux:=DelChars(Archivo,'.');
    RenameFile(Archivo,aux);
    writeln (aux + ' SE MODIFICO!!!');
    end
    else writeln (Archivo + ' No se MODIFICO!!!');
  end;

 begin //Comienza del procedimiento principal
 FindFirst(dir+'*.*',Faanyfile,Datos);
 if DirectoryExists(ExtractFilePath(dir)+Datos.name) then
    begin
    Busco(dir+Datos.Name)
    end
    else begin
     Reemplazo(dir+'\'+Datos.name);
     while FindNext(Datos)<>0 do
        begin
        if DirectoryExists(ExtractFilePath(dir)+Datos.Name) then
            begin    
            Busco(dir+Datos.Name)
            end
               else Reemplazo(dir+'\'+Datos.Name);
        FindNext(Datos);
        end;
    end;
 findClose(Datos);
end;

//Comienza principal
begin
write ('INGRESE EL DIRECTORIO: ');
readln(Dire);
Busco(Dire);
end.