Нарисовать в паскаль абс с использованием цикла

uses GraphABC;var x, y, n, i:integer;const width = 25;const height = 100;begin  read(x,y,n);  DrawRectangle(x,y,x+width*n,y+height);  for i:=2 to n do  begin    x+=width;    MoveTo(x,y);    LineTo(x,y+height);  end;end.