program Prg1;
var
miArchivo:text;
i:integer;
begin
assign(miArchivo,'primos.txt');{assignFile en Delphi}
rewrite(miArchivo);{reescribir}
for i:=1 to 32000 do
if EsPrimo(i) then writeln(miArchivo,i);
close(miArchivo);{siempre cerrar!}{closeFile en Delphi}
end.