Не могу понять почему у меня не хочет выполняться первый цмкл, с тем же While... это я проверял так, вывел какуюто надпись перед и после цикла и получилось так, что 1-й цикл не хотит выполняться... вродебы всё удовлетворяет, но почему, я не понимаю

Потому что во втором цикле while в матрицу на теже места перезаписываются вычисления
while (1)
tab[i,1]:=x;
tab[i,2]:=y;
end
while (2)
tab[i,1]:=x;
tab[i,2]:=y;
end