SoloCodigo

Dado un vector construir la matriz.
1 2 3 4 5 6 7 8 9 10

1 2 4 7       donde de la diagonal para abajo son los
2 3 5 8       números del array, quedando una matriz simetrica
4 5 6 9
7 8 9 10

PROGRAM Matriz;
Type
tMatriz=ARRAY [1..N,1..M]OF Integer;
tVector=ARRAY [1..K]OF Integer;
Var
Matriz:tMatriz;
Vector:tVector;
PROCEDURE Diagonal (Vector:tVector;VAR Matriz:tMatriz)
VAR
I,J,Z:Integer;
BEGIN
FOR I:=1 TO K DO {recorro vector}
FOR J:=1 TO N DO {Filas}
FOR Z:=1 TO M DO {Columnas}
Vector:= Matriz[N,M]
END;

pero asi no me la escribe como yo quiero. Como hago??

pues lo que me piden es que del vector que me dan lo pase a una matriz, es decir me dan un vector con: 1,2,3,4,5,6,7,8,9,10 osea un array de 10 posiciones y lo meta en la matriz de esta manera
1
2 3
4 5 6
7 8 9 10
y supuestamente al hacer esto la matriz queda simetrica y se convierte en:
1 2 4 7
2 3 5 8
4 5 6 9
7 8 9 10