type
  massiv = array [1..10,1..10] of integer;

procedure generate(var mas: massiv);
var
i,j: integer;
begin
  for i:=1 to 10 do
    for j:=1 to 10 do
      mas[i,j]:=random(201)-100;
end;

procedure show(var mas: massiv);
var
i,j: integer;
begin
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
      write(mas[i,j]:5);
    writeln('');
  end;
end;

var
  m: massiv;
  summa: integer;
  i: integer;

BEGIN

  randomize;
  generate(m);
  show(m);
  writeln('');

  summa:=0;

  for i:=1 to 10 do
    if m[i,1]<0 then
      summa:=summa+m[i,i];

  writeln('Сумма=',summa);

  readln;

end.