доработать программу

[konispat]

задание: изобразить шахматную доску и случайным образом расставленные на ней шашки.

есть часть программы которая рисует доску:

PHP код:

uses graphabc, crt;
Var x,y,c,n,k,t:integer;
begin
setwindowsize (500,500);
 
rectangle(49,49,451,451);
y:=50;
for k:=1 to 8 do
 begin x:=50;
 
 for n:=1 to 8 do
 begin
 if (n+k) mod 2=0 then
 c:=clwhite else c:=clblack;
 setpencolor(c);
 rectangle(x,y,x+50,y+50);
 FloodFill(x+1,y+1,c);
 
 x:=x+50;
 end;
 y:=y+50;
 end 
end. 


как сделать так чтобы шашки каждый раз стояли в разных местах? сколько голову не ломал не додумался, единственное что смог просто расставить шашки в начальном их положении:

PHP код:

uses graphabc, crt;
Var x,y,c,n,k,t:integer;
begin
setwindowsize (500,500);
rectangle(49,49,451,451);
y:=50;
for k:=1 to 8 do
 begin x:=50;
 
 for n:=1 to 8 do
 begin
 if (n+k) mod 2=0 then
 c:=clwhite else c:=clblack;
 setpencolor(c);
 rectangle(x,y,x+50,y+50);
 FloodFill(x+1,y+1,c);
 if (k<4) then
 begin
 if (c=clwhite) then
 begin
 c:=clblack;
 setpencolor(c);
 Circle(x+25,y+25, 20);
 end
 end;
 if (k>5) then
 begin
 if (c=clwhite) then
 begin
 c:=clblack;
 SetBrushColor(c);
 Circle(x+25,y+25, 20);
 end
 end;
 x:=x+50;
 end;
 y:=y+50;
 end
end. 


очень надеюсь на вашу помощь!

[Poma][a]

Random есть.