program allomany_kezeles;
var f:file;
begin
     assign(f,'C:\p5_12.pas');{ha itt van a programunk, s ez a neve}
     rename(f,'progi.pas');
     erase(f);
end.