Нарисовать фигуру с зубцами

uses crt,graphABC;
procedure Zub(xmin,xmax,ymin,ymax,n:integer);
var x,y,i,dx:integer;
begin
dx:=round((xmax-xmin)/(2*n));
x:=xmin;
for i:=1 to n do
 begin
  line(x+(i-1)*2*dx,ymax,x+(i-1)*2*dx+dx,ymin);
  line(x+(i-1)*2*dx+dx,ymin,x+(i-1)*2*dx+2*dx,ymax);
 end;
end;
var x1,x2,y1,y2,n:integer;
begin
repeat
writeln('Введите минимальное и максимальное значения по Х:');
readln(x1,x2);
until(x1>0)and(x2<windowwidth)and(x1<x2);
repeat
writeln('Введите минимальное и максимальное значения по Y:');
readln(y1,y2);
until(x1>0)and(x2<windowheight)and(y1<y2);
write('Количество зубцов n=');
readln(n);
clrscr;
hidecursor;
Zub(x1,x2,y1,y2,n);
end.