Delphi 7 работа с матрицами

[Акмаль47]

В матрице K(nxn) найти и записать в одномерный массив X элементы 2-х соседних диагоналей параллельных главной. n-задать вводом

[Serge_Bliznykov]

Акмаль47, приложение консольное (текст в отдельном чёрном окошке) или обычное приложение Windows (с окошками/формами/полями ввода)?

Что сделали? Что не получается?
И вообще, Вы собираетесь что-то делать самостоятельно или ждёте, что кто-то полностью решит вместо Вас?

p.s. суть задачи такая:

SetLength(X, 2*(n-1));
for i:=1 to n-1 do 
    X[i] := K[i,i+1];
for i:=2 to n do 
    X[n+i-2] := K[i,i-1];