¿Has leido en voz alta tu pregunta?
No sé a qué te refieres con cuadrado de la primera diagonal así que contestaré a
¿Cómo llenar una matriz cuadrada con 1's en la diagonal principal y 0's fuera de ella?
Código Delphi
[-]
for I := 1 to N
for J := 1 to N do
if I = J
then M[I, J] := 1
else M[I, J] := 0;
donde M es la matriz y N la dimensión de la matriz.
// Saludos