Změny

Datum[I].rok :=Datum[I].rok + 1;