OberonCore

   (* Поля служебного заголовка *)
   Header* = RECORD
      header-:ARRAY 12 OF CHAR; (* Название формата файла *)
      version-: INTEGER; (* Версия формата *)
      datetime-: RECORD (* Дата-время заплатки *)
         d-: Dates.Date;
         t-: Dates.Time
      END;
      chksum-: INTEGER (*  *)
   END;
   
   (* Поля заплатки *)
   Label* = RECORD
      tag-: INTEGER; (* Уникальная метка *)
      type-: BOOLEAN; (* Начало/Конец заплатки *)
      desc-: ARRAY 32 OF CHAR; (* Описание *)
      path-: ARRAY 64 OF CHAR (* Путь к файлу для применения заплатки *)
   END;
   
   (* Поля блока *)
   Block* = RECORD
      optype-: INTEGER; (* Тип операции: добавление/удаление/изменение блока *)
      size-: INTEGER (* Размер блока в байтах *)
   END;

descLen- : INTEGER;
desc- : ARRAY [descLen] OF CHAR; (*это же раскладка в файле, псевдокод тобишь*)