Напишите 2 цикла для квадратной матрицы, чтоб охватывалась закрашенная зона
For i:=1 to N do For j:=i to N do Readln(m[i,j]);