🚀 go-pugleaf

Bien, la cosa es que en una practica de la universidad (para el lunes) 
necesito extraer las palabras de un fichero de texto a un fichero de 
tipo "palabras"

const
  MAXLONGPALABRA=21;
type
  palabra= string[MAXLONGPALABRA];
  tipoFich= file of palabra;

y este es mi procedimiento, peor genera un resultado extraño que no se 
a que se debe. Al abrir en un editor de texto no se ven las palabras 
como tal, sino que al final de las palabras agrega algunos caracteres 
que no deberian estar ahí.

procedure extraerPalabras(var ftxt:text;var fs:tipofich);
    var
      c    : char;
      eraLetra : boolean;
      p: palabra;
    begin
      read(ftxt,c);
        c:=PasaMayusculas(quitaTildes(c));
      if EsLetra(c) then
        begin
          p:=c;
          eraLetra:=True;
        end
        else
          begin
            eraLetra:=False;
            p:='';
          end;
      while not eof(ftxt) do
        begin
          read(ftxt,c);
          c:=PasaMayusculas(quitaTildes(c));
          if esLetra(c) then
            begin
              p:= p+c;
              eraLetra:= true;
            end
          else
            begin
              if eraLetra then
                begin
                  write(fs,p);
                  p:='';
                end;
              eraLetra:= False;
            end
        end;
    end;


¿Alguna posible solucion o implementación mejor de este procedimiento 
(mas correcta o mas eficiente, y funcione bien a ser posible)?


--
--
********************************
dardo
********************************