Паскаль, графика, прямоугольники

[Worlok]

Здравствуйте)))есть вот такая задача:
Построить на экране квадрат, состоящий из 225 маленьких квадратов(15х15). Заполнить каждый квадрат чистым цветом(от1 до 15). Цвет в каждой следуещей строке сдвинут на 1 квадрат относительно предыдущей( 1-я строка: 1,2,3,...15; 2-я строка: 15,1,2,...14; 3-я строка: 14,15,1,...13 и т.д.)
напишите,пожалуйста, хотя бы алгоритм как заполнять эти квадраты...первую строку легко можно с помощью оператора For to do заполнить...а вот как следующие?если влоб делать, то оч громозко выходит...помогите)

[dr.Jekill]

Выкладывай наработки - поможем!

[Хыиуду]

for i:=1 to 15 do
for j:=1 to 15 do
square[i,j].color=(i-j+15) mod 15+1;