эээ вот так наверное...
program scrin;
var i,j:integer;
begin
ShowCanvas;
setcolor(125,126,127);
for i:=0 to 8 do
begin
for j:=0 to 8 do
begin
if(i mod 2=j mod 2)then
fillrect(i*16,j*16,i*16+16,j*16+16);
end;
repaint;
end;
while getkeyclicked=KE_NONE do
delay (100);
end.
Насчёт репэйнта не уверен, что туда, куда тебе надо его запихнул.
Если тебе надо его во внутренний цикл, то ещё раз бегин-энд будет.