вывод на экран Pcx Опции

[Akira]

Как вывести графический файлик PCX на экран?
Очень срочно надо, а то что видел почему-то не работает :-(

[sembler]

Очень извиняюсь, наверно я жутко тормажу. Вчера, опять, сел за эту программку - написал такой
кусок кода. Дык вот, при запуске (даже после компиляции) программка вылетает ничего не напечатав. Может я жутко тормажу? подскажите плиз...

program z1;
type

 RGB = record
  Red,
  Green,
  Blue : Byte;
 end;

  header=record
  Maker        : Byte;
  Version      : Byte;
  Code         : Byte;
  BitsPerPixel : Byte;
  XLow         : Word;
  YLow         : Word;
  XHigh        : Word;
  YHigh        : Word;
  Hres         : Word;
  Vres         : Word;
  Palette      : array [0..15] of RGB;
  VMode        : Byte;
  PlaneCount   : Byte;
  BytesPerLine : Word;
  Reserved     : array [0..59] of byte;
 end;

var pcx:header;
   f:file;

begin
        assign(f,'file.pcx');
        reset(f);
        blockread(f, pcx, 128);
        close(f);
        write(pcx.Hres);
end.