Перетворення форматів графічних файлів

var

PCXF, BMPF: file;

PCXheader: array [0..127] of byte;

BMPheader: array [0..53] of byte;

i, result, curx, HGT: integer;

buf: array [0..1959] of byte;

b, val: byte;

size, pos1, BPL: longint;

begin

assign(PCXF, 'dollar.pcx');

reset(PCXF, 1);

assign(BMPF, 'dollar.tmp');

rewrite(BMPF, 1);

blockread(PCXF, PCXheader, 128);

for i:=0 to 53 do begin

BMPheader[i]:=0;

end;

writeln('W: ', PCXheader[9]*256+PCXheader[8]+1);

HGT := PCXheader[11]*256+PCXheader[10]+1;

writeln('H: ', HGT);

BPL := PCXheader[67]*256+PCXheader[66];

BMPheader[0] := $42; {header word}

BMPheader[1] := $4D;

BMPheader[10] := 54;

BMPheader[14] := 40; {header size}