> -- Иван Кузьмицкий писал(а):
> для статических структур такая запись не подходитТогда можно и статические записи инициализировать:## Код:
```
TYPE
   PTime = POINTER TO Dates.Time;

   PROCEDURE Time* (h, m, s: INTEGER): PTime;
      VAR t: PTime;
   BEGIN
      NEW(t); t.hour := h; t.minute := m; t.second := s;
      RETURN t
   END GetTime;

VAR myTime: Dates.Time;

myTime := MyDates.Time(0, 0, 0)^;
```
Недостаток очевиден - мусор в куче. Красота требует жертв?