¿Cual es el problema?
usa readln ,- este recoge una linea completa sin el retorno de carro - por cada readln que uses suma un contador de retorno de carro.
en las tildes , si te refieres a los acentos se agregan igual que cualquier otro caracter .
Los retornos de carro son diferentes bajo linux -unix - y XP .
linux usa un solo caracter para representarlo y los sistemas microsoft
2 caracteres un salto de linea y un retorno de carro ascill 10,13
En los ficheros bajo dos y bajo windows pueden cambiar los acentos por usar una tabla de códigos diferentes diferente , pero puedes abrir el fichero con el block de notas y cargar la fuente terminal OEN / DOS seleccionar una letra acentuada y reemplazarla en todo el documento .
Tambien es facil hacer un conversor de acentos DOS / WINDOW o viceversa
Si el problema es otro , postea .
_______________________________________________________________
ahí van datos suficientes para crearte un programa conversor de ficheros de texto DOS a WINDOWS y viceversa , es posible que no se vean correctamente los caracteres hasta que los pegues en un fichero de texto y los habras con el EID de Turbo . El programa completo no lo envio ya que posee rutinas en ensamblador y el tema se sale de lo expuesto.
SALUDOS.
_______________________________________________________________
type Tacentos=record
min_normal :array[1..5]of char;
min_izq_dos:array[1..5]of char;
min_izq_win:array[1..5]of char;
min_der_dos:array[1..5]of char;
min_der_win:array[1..5]of char;
may_normal :array[1..5]of char;
may_izq_dos:array[1..5]of char;
may_izq_win:array[1..5]of char;
may_der_dos:array[1..5]of char;
may_der_win:array[1..5]of char;
end;
const Acentos:Tacentos= (
min_normal :('a','e','i','o','u');
min_izq_dos:('…','Š','','•','—');
min_izq_win:('à','è','ì','ò','ù');
min_der_dos:(' ','‚','¡','¢','£');
min_der_win:('á','é','í','ó','ú');
may_normal :('A','E','I','O','U');
may_izq_dos:('·','Ô','Þ','ã','ë');
may_izq_win:('À','È','Ì','Ò','Ù');
may_der_dos:('µ','','Ö','à','é');
may_der_win:('Á','É','Í','Ó','Ú')
);
