Написать программку которая будет выводить на экран забор, состоящий из 50

Program test;
uses graphabc;
var i,x:integer;
begin write('Сколько дощечек для забора для тебя необходимо? = ');
readln(x);
for i:=1 to x do begin 
line(50+i*50,400,50+i*50,200);
line(50+i*50,200,75+i*50,190);
line(75+i*50,190,100+i*50,200);
line(100+i*50,200,100+i*50,400);
line(100+i*50,400,50+i*50,400);
end;
end.