If записать then
Регистр := 0
Записать:= false
End if