[LukA4e]

ciao perchè questo programma non funziona con linux?? uso fpk:

Program Ciao;
usescrt;
var file1:text;
var a: string;
begin
clrscr;
assign (file1,'prova.txt');
rewrite (file1);
repeat
readln (a);
if a <> 'FINE' then writeln(file1,a);
until a = 'FINE';


close(file1);
end.

mi da errore su usescrt che uso tranquillamente con turbo pascal da dos...