program comunesdat;

type
tipopalabra=string[30];

tregistro2=record
palabracom: tipopalabra;
end;

tarchivo2= file of tregistro2;

var
comunes: tarchivo2;
regcomunes: tregistro2;

begin
        assign(comunes,'comunes.dat');
        rewrite (comunes);
        writeln ('ingrese');
        readln (regcomunes.palabracom);
        while (regcomunes.palabracom<>'xxx') do
                begin
                        write (comunes,regcomunes);
                        writeln ('ingrese');
                        readln (regcomunes.palabracom);
                end;
        close (comunes);
end.