Guscio sbagliato

Program IO;
var i,o : text; s : string;
begin
assign (I,'D:/DATI/INPUT.TXT');
reset (I);
assign (O,'D:/DATI/OUTPUT.TXT');
rewrite (O);
while not (eof(I)) do
begin
readln (I,S);
writeln (O,S);
end;
close (I);
close (O);
end.

Questo è un classico programma guscio, xò ha delle imprecisioni, x nn dire errori, quali x esempio l'indirizzo dei file dato x assoluto...
Se trovate una soluzione a questo problema contattatemi, adios muchachos...
Ale... e molti altri amici (compresi gli orsetti del cuore)