Разработать алгоритм и программу решения задачи: найти сумму отрицательных элементов двумерного массива находящихся на главной диагонали матрицы размером 10 х10 (с вводом и выводом матрицы)

Var matrix: array[1 ... 5,1 ... 5] of integer; i, j: integer; sg:=0; sp:=0; begin writeln ('Введите 25 чисел: ') ; for i : = 1 to 5 do for j : = 1 to 5 do read (matrix[i, j]) ; for i : = 1 to 5 do begin for j : = 1 to 5 do write (matrix[i, j], ' ') ; writeln end; for i:=1 to 5 do begin for j: = 1 to 5 do if j=i then sg:=sg+matrix[i, j]; end; for i:=5 downto 1 do begin for j:=1to 5 do if (i+j) = 6 then sp:=sp+matrix[i, j] end; sp:=sp-matrix[3,3]; 1 writeln (sg,' ', sp) ; readln end