Вывести на экран видеомонитора 10 вертикальных и 10 горизонтальных линий разного цвета с одинаковым расстоянием между ними

uses graphABC;
var i:byte;
    x,y,dx,dy:integer;
begin
x:=20;
y:=20;
dx:=round((windowwidth-40)/9); //шаг по горизонтали
dy:=round((windowheight-40)/9);//шаг по вертикали
for i:=1 to 10 do
 begin
  setpencolor(RGB(random(255),random(255),random(255)));
  line(x,y+(i-1)*dy,windowwidth-20,y+(i-1)*dy); //горизонтальные
  setpencolor(RGB(random(255),random(255),random(255)));
  line(x+(i-1)*dx,y,x+(i-1)*dx,windowheight-20);//вертикальные
 end;
for i:=1 to 9 do
 begin
  setpencolor(RGB(random(255),random(255),random(255)));
  line(x,y+i*dy,x+i*dx,y); //выше главной диагонали и она
  line(x+(i-1)*dx,y,windowwidth-20,y+(10-i)*dy);//выше побочной диагонали и она
  if i>1 then
   begin
    setpencolor(RGB(random(255),random(255),random(255)));
    line(x,y+(i-1)*dy,x+(10-i)*dx,windowheight-20); //ниже главной
    line(x+(i-1)*dx,windowheight-20,windowwidth-20,y+(i-1)*dy);//ниже побочной
   end;
 end;
end.