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

BMPheader[18] := PCXheader[8]+1;

BMPheader[19] := PCXheader[9];

BMPheader[22] := PCXheader[10]+1;BMPheader[23] := PCXheader[11];

BMPheader[26] := 1; {planes}

BMPheader[28] := 24; {bpp}

blockwrite(BMPF, BMPheader, 54);

result:=1;

size:=0;

curx:=0;

while result=1 do begin

blockread(PCXF, b, 1, result);

if (b and $C0) = $C0 then begin

b:=b and $3F;

blockread(PCXF, val, 1, result);

end else begin

val:=b;

b:=1;

end;

gotoxy(1, wherey); write(size); clreol; inc(size);

for i:=1 to b do begin

buf[curx]:=val;

inc(curx);

end;

if (curx=BPL*3) then begin

for i:=0 to BPL-1 do begin