Заполните треугольник высотой n строк цифрами от 0 до 9 (циклически) с последовательно меняющимися цветами - Pascal

uses crt;
var len: integer; {количество цифр в текущей строке}
i,j: integer; {счетчики цикла}
digit: integer; {цифра}
color: integer; {цвет}
pos: integer; {начальная позиция в строке}
n: integer; {размер}
  begin
clrscr;
writeln ('Рисование треугольника');
repeat
write ('Введите его высоту от 1 до 10: ');
readln (n);
if (n<1)or(n>10) then writeln ('Введена неправильная высота');
until (n>=1)and(n<=10);
clrscr;
len:=(n+1)-n;digit:=0;pos:=18;color:=1;
for i:=1 to n do
begin
for j:=pos to len+pos-1 do
begin
gotoxy (j,i);
textcolor(color);
write (digit);
color:=color+1;
if color>15 then color:=1;
digit:=digit+1;
if digit>9 then digit:=0;
end;
pos:=pos-1;
len:=len+2;
end;
readln
end.