Dodawanie bajtów do recordu

Timpm = record
man : array [1..4] of real48;
end;

Twimah = record
      rok : word;
         x : array  [0..13] of timpm ;
         z : array  [0..13] of smallint;
         d : array  [0..13] of word;
     wbk : array  [0..13] of char;
   name : array  [1..12] of string [8];
      poz : array  [1..12] of word;
       zzz : string [123];
               end;

Czy jest ktoś w stanie powiedzieć jak zmienić formę zapisu aby przy tej strukturze danych nie zmieniając danych miejscami uzyskać długość rekordu 664 bajty a nie jak oblicza Delphi 6, 672 bajty.

[email protected]

packed record i packed array!! Poczytaj w helpie. W artach też chyba jest.

real48 ?? Przecież ten typ jest trzymany tylko dal kompatybilności... Polecam F1

real48 ?? Przecież ten typ jest trzymany tylko dal kompatybilności.

Osmielam sie przypuszczac, ze dlatego zostal uzyty. Zapewne program ma czytac pliki ze starego programu paskalowego - stad i problemy z packed, ktorego tam (w Pascalu) nie bylo trzeba.