просмотр PCX-файлов

[Денис999]

Программа просмотра графических РСХ-файлов.
помогите разобраться найти мои ошибки. Хочу довести программу до рабочего состояния.

var
 f:File;
 i,j,z:Word;
 r,g,b,
 pb,pc:Byte;
 xsize,ysize:word;
 Buffer:Array[1..60000] of Byte;
 fpos:Word;
 t:Byte;
Procedure Decode(var pbyt,pcnt:byte);
var i : Byte;
begin
PCnt := 1;
{BlockRead(F,i,1);}
i := Buffer[fpos];
inc(fpos);
If fpos>60000 then
begin
BlockRead(F,Buffer,60000); fpos := 1; Inc(t) end;
If $C0 = $C0 AND i then
begin
pcnt := $3f and i;
{BlockRead(F,i,1);}
i := Buffer[fpos];
inc(fpos);
If fpos>60000 then
begin
BlockRead(F,Buffer,60000); fpos := 1; Inc(t)
end;
end;
pbyt := i;
end;
Procedure PutDot(x,y:word;c:byte);
begin
mem[$A000:y+320*x]:= c;
end;
begin
asm
mov ax,13h
int 10h
end;
assign(f,ParamStr(1));
reset(f,1);
seek(f,12);
BlockRead(F,Xsize,2);
BlockRead(F,Ysize,2);
seek(f,filesize(f)-768);
Port[$3c8] := 0;
for i:=0 to 255 do begin
BlockRead(f,b,1);
BlockRead(f,g,1);
BlockRead(f,r,1);
port[$3c9]:=b div 4;
port[$3c9]:=g div 4;
port[$3c9]:=r div 4;
end;
seek(f,128);
BlockRead(F,Buffer,60000);
fpos:=1;
t:=1;
     i := 0;
     j := 0;
     repeat
     Decode(pb,pc);
     for z := 1 to pc do
     begin
     PutDot(j,i,pb);
     inc(i);
     If i > XSize-1 then
     begin
     i := i - Xsize;
     Inc(j);
     end;
     end;
     until j = YSize;
Close(F);
asm
xor ah,ah
int 16h
mov ax,3h
int 10h
end;
end.