program SumNegElements;

const
N = 5;
M = 4;

type
Matrix = array[1..N, 1..N] of Integer;

procedure FillMatrix(var mat: Matrix; rows, cols: Integer);
var
i, j: Integer;
begin
for i := 1 to rows do
begin
for j := 1 to cols do
begin
Write('Enter element ', i, ',', j, ': ');
Readln(mat[i, j]);
end;
end;
end;

function SumNegElements(mat: Matrix; rows, cols: Integer): Integer;
var
i, j, sum: Integer;
begin
sum := 0;
for i := 1 to rows do
begin
for j := 1 to cols do
begin
if mat[i, j] < 0 then
sum := sum + mat[i, j];
end;
end;
SumNegElements := sum;
end;

var
X, Y: Matrix;
sumX, sumY: Integer;

begin
FillMatrix(X, N, N);
FillMatrix(Y, M, M);

sumX := SumNegElements(X, N, N);
sumY := SumNegElements(Y, M, M);

writeln('Sum of negative elements in matrix X: ', sumX);
writeln('Sum of negative elements in matrix Y: ', sumY);

if sumX > sumY then
writeln('The sum of negative elements in matrix X is greater.')
else if sumY > sumX then
writeln('The sum of negative elements in matrix Y is greater.')
else
writeln('The sums of negative elements in matrix X and Y are equal.');

end.