Comment copie un fichier pascal F1 a un autre

Fermé
CRIS R9 - 26 avril 2010 à 23:40
slt a tous j'ai un probleme sur les fichiers dans turbo pascal alors comment ecrire une fonction ou bien un procedure qui permet de copier un fichier
et merci d'avance a vous solution
voila ma sol
procedure copier_fich(org,cop:file of {nom_fichier});
begin
assign(org);assign(cop);
reset(org);rewrite(cop);
while not eof(org) do
   begin
       cop:=org;
       put(cop); 
       get(org);
   end;
close(org);close(cop);
end.
est ce que just ou non