sbagliavo ad usare " al posto di '
solo che ora come output da solo un file bianco...
program rw1;
uses crt;
var input, output: TextFile;
linea:string;

begin
clrscr;
assign(input,'input.txt');
assign(output,'output.txt');
rewrite(output);
while not eof(input) do
begin
readln(input,linea);
writeln(output,linea)
end;
close(output)
end.
ho provato anche questo
...
while not eof(input) do
begin
readln(input,linea);
writeln(linea)
end;
readln
end.
ma il programma si esegue e si chiude subito...
dove sbaglio?