Надо заменить твои переменные с цифрами в конце на массивы, а операции над ними сделать в виде циклов. Начнем с этого.
Твой алгоритм скорее всего легко описывается в виде двумерного массива и двух вложенных циклов.

Очень рекомендую все делать в Блэкбоксе и выкладывать тут рабочий код, иначе твою ветку перенесут в оффтоп. Этот раздел для делающих первые шаги в освоении Компонентного Паскаля, а не просто Паскаля.