Преобразование треугольного массива в одномерный)

[aly-lucenko]

эх... извините, за назойливость)

все равно ошибка)

[Serge_Bliznykov]

ну вот. пишешь, как лучше, получается, как всегда

   B: array [0..6]of integer;
...
  // выведем массив B
  for I := 0 to 5  do
....
 for x:=Low(B) to High(B)  do begin

High(B) вернёт 6-ку!
Зачем Вы массив B вы сделали на 7 элементов?!

значит так.
либо сделайте массив B на 6 элементов:

 B: array [0..5]of integer;

либо измените строчку

 for x:=Low(B) to High(B)  do begin

на строчку

 for x:=0 to 5  do begin

должно заработать!

[aly-lucenko]

Спасибо огромное)