Помогите пожалуйста.В тетради нарисовать орнамент из разноцветных прямоугольников, ромбов, квадратов, подготовить программы для отдельных элементов с использованием векторов

uses crt,graphABC;var a,m,n,j,i,x1,y1,x2,y2,x3,y3,x4,y4,kg,kv,p:integer;    k:real;    procedure kvadrat;//рисование 1 квадратаbeginsetpencolor(clBlue);moveto(x1,y1);lineto(x2,y2);lineto(x3,y3);lineto(x4,y4);lineto(x1,y1);end; beginhidecursor;repeatwrite('Сторона квадрата от 20 до 100 a=');read(a);until a in [20..100];repeatwriteln('Введите 2 числа для определения соотношени m<n:');read(m,n);until m<n;clearwindow;k:=m/n;//отношениеkg:=windowwidth div a+1; //кол. кв. по горизонталиkv:=windowheight div a+1; //по вертикалиfor j:=1 to kg dofor p:=1 to kv do begin  for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте   begin    kvadrat;    x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k);    x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k);    x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k);    x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k);   end;x1:=a*(j-1); y1:=a*(p-1); //на новое местоx2:=a*j; y2:=a*(p-1);x3:=a*j; y3:=a*p;x4:=a*(j-1); y4:=a*p;end;  end.