Переменной S присвоить значения, которые равны сумме отрицательных элементов массива {Xi,j} n,m. — Pascal(Паскаль)

Program M2_B2;
uses crt;
var s:real; i,j:byte;
X:array [1..6,1..3] of real;
Begin
clrscr;
     for i:=1 to 6 do
     for j:=1 to 3 do
begin
     X[i,j]:= random (10)-5;
end;
     writeln ('Isxodnaya matrica:');
     for i:=1 to 6 do
begin
     for j:=1 to 3 do
     write ('X[',i,',',j,']=',x[i,j]:2:0,'');
     writeln;
end;
     writeln;
     s:=0;
     for i:=1 to 6 do
     for j:=1 to 3 do
     if x[i,j]<0 then
     s:=s+X[i,j];
     writeln ('Symma otricatelnyx elementov s=',s);
End.