Фигура процедурами

PROGRAM vetoshev2;
USES Graph;
VAR
  gd,gm:integer;
  Procedure figure(x,y:integer);
  Begin
   MoveTo(x,y);
   LineRel(20,0);
   LineRel(10,-10);
   LineRel(10,10);
   LineRel(-10,10);
   LineRel(0,20);
   LineRel(10,10);
   LineRel(-10,10);
   LineRel(-10,-10);
   LineRel(-20,0);
   LineRel(-10,10);
   LineRel(-10,-10);
   LineRel(10,-10);
   LineRel(0,-20);
   LineRel(-10,-10);
   LineRel(10,-10);
   LineRel(10,10);
  End;
BEGIN
  gm:=2;
  gd:=VGA;
  InitGraph(gd,gm,'C:\TP7\BGI');
  setColor(2);
  Figure(50,50);
  setColor(4);
  Figure(120,280);
  setColor(12);
  Figure(300,70);
  setColor(3);
  Figure(480,260);
  ReadLn;
  CloseGraph;
END.

Procedure figure(x,y,koeficient:integer)
begin
 moveto(x,y);
linerel(10*koeficient, 20*koeficient);
linerel(-10*koeficient, 5*koeficient);
и.т.п
end;

uses graph;
type Point=record//точка
           x,y:integer;//с координатами
           end;
procedure Draw(t:Point;d,c:integer);//рисование фигуры, 
//входные параметры - центр, длина ед.линии, цвет 
 procedure P1(kx,ky,p:integer);//вспомогательная процедура-рисуем 1 четверть фмигуры
  begin
   line(t.x+kx*2*d,t.y,t.x+kx*2*d,t.y+ky*d);
   line(t.x+kx*2*d,t.y+ky*d,t.x+kx*3*d,t.y+ky*2*d);
   line(t.x+kx*3*d,t.y+ky*2*d,t.x+kx*2*d,t.y+ky*3*d);
   line(t.x+kx*2*d,t.y+ky*3*d,t.x+kx*d,t.y+ky*2*d);
   line(t.x+kx*d,t.y+ky*2*d,t.x,t.y+p*d);
  end;
begin
setcolor(c);//уст.цвета
P1(-1,1,2);//рисуем 4 раза, поворачивая на 90 градусов
P1(-1,-1,-2);
P1(1,-1,-2);
P1(1,1,2);
end;
var t:point;
    x,y,ed,cv:integer;
begin
x:=0;
initgraph(x,y,'');
t.x:=getmaxX div 2;//одна фигура в центре, дальше сам
t.y:=GetmaxY div 2;
Draw(t,30,14);
readln
end.