GUSCIO...cerco aiuto!

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



il guscio contiene degli errori ed in futuro proporrò una versione più coretta di esso,si accettano consigli e correzioni!!!