Анастасия Владимировна, доброго времени суток! В 9 лабе задача про забор не единственная. Да, что-то Ваши координаты пляшут. У Вас  две одинаковые строки и не задействована переменная dl. Посмотрите этот вариант:

uses GraphABC;

var x,y,k:integer;

begin

  x:=100;y:=100;

  for k:= 1 to 5 do

  begin

   MoveTo(x,y);

   LineTo(x-10,y+10);

   LineTo(x-10,y+100);

   LineTo(x+10,y+100);

   LineTo(x+10,y+10);

   LineTo(x,y);

   FloodFill(x,y+10,clRandom);

   x:=x+20;

   end;

end.

Есть ещё задача про забор, где запрашивается кол-во досок и длина забора. Удачи!