Можно ли как нибудь в эти циклы вставить формулы j:=i-(i-6)?

а? перечитал 4 раза, нифига не понял. Если я хоть что-то понял, то ты не можешь написать один

if (i >= 5) then
begin
js:=i-(i-5);
ib:=i(i-6);
end

написал бы все задание, только на том языке оригинала (уверен что это латышский), а то пересказ нифига не понянет, имхо

Какое условие задачи? что нужно? что это за код вообще? ахинея в нем какая-то, либо он выдран? тебе надо обойти двухмерный массив? обходи его двумя for один будет выберать строку, а 2-ой уже проходить эту строку.... и так пока не будет конец, если ты хочешь использовать в циклах какие-то не понятные шаги, используй только While, этот цикл с не определенным количеством шагов, а for Всегда знает сколько он шагов сделает


это не формулы не какие это просто счетчики, jsakums:=i+1; - с каждым шагом счетчик увеличивается на 1, jbeigas:=10-i; ну тут от 10 отнимается то чему равна i, какие это формулы?) если тебе после определенного элемента надо поменять позицию шага, делай например так:

for i:=1 to 10 do
begin
if (i>=5) then
begin
{пока i меньше или равно 5 делает то что надо}
end
ELSE
begin
{если условие больше не удовлетворяется меняем шаг "Вставляй свою типа формулу" и уже работай с ней}
end;

сорри мог в синтаксисе где-то отпечататься на паскале не писал уже наверное лет 7

6-я лаба у Лавенделса?
Либо ставь условие if в циклах, либо используй цикл while.
Вот например моя 6-я лаба.
wrk:=1;
for i:=2 to 6 do{cikls pa rindam}
     begin                        
       j:=-1+i;                  
        if j>10 then j:=10;      
    while (j<=4+i) and (j<=10) do
         begin                    
            ms[i,j]:=wrk;        
           wrk:=wrk+1;        
         end;
      end;