Procedure valami(Filename: String);
var F: File of Byte;
Begin
	AssignFile(F, Filename);
	If FileExists(Filename) Then ReSet(F) Else ReWrite(F);
	// mittudomen
	CloseFile(F);
End;