Графика(доски забора)

[for_tuna]

дана программа рисования забора:
Program zabor;
Uses Crt,Graph,Graph0;
Var d,w,x,q,z,a,p:integer;
begin
ClrScr;
x:=0;
Write('vvedite dlinu doski ');
Readln(w);
Write('vvedite kolichestvo pikseley ');
Readln(p);
a:=p div w;
z:= w div 2;
Init('g:\bp\bgi');
for q:=1 to a do
begin
moveto(x,480);
setcolor(q);
setfillstyle(1,q);
linerel(0,-200);
linerel(z,-30);
linerel(z,30);
linerel(0,200);
linerel(-2*z,0);
floodfill(x+1,400,q);
x:=x+2*z;
end;
d:=p mod w;
if d>0 then begin
moveto(x,480);
setcolor(q+1);
setfillstyle(1,q+1);
linerel(0,-200);
linerel(z,-30);
linerel(0,230);
linerel(-z,0);
floodfill(x+1,400,q+1);end;
readln;
end.


Она рисует по в заданном количестве пикселей столько досок,сколько задано их по ширине....надо ее изменить так,чтоб ту доску в остатке рисовало не половину,а вот именно эту часть(к примеры,если вводить ширину доски-30,а ширину всего забора-110,то он должэен нарисовать 3 целых доски и чуть больше половины)....нам подсказали,что вот эту остаточную доску нужно делать так: рисовать полную ее,а потом закрашивать черным квадратом(bar)...так вот,помогите пожалуйста вычислить координаты этого квадрата...очень нужно)))