Найти сумму всех отрицательных элементов матрицы

var
  a: array[1..10,1..10] of integer;
  n,i,j,x: byte;
  s: integer;
begin
  repeat
    write('Введите размерность матрицы n (n <= 10) : ');
    readln(n);
  until n in [1..10];
  repeat
    writeln('Введите 1 для включения датчика случайных чисел');
    writeln('Введите 2 для ручного ввода элементов матрицы');
    readln(x);
  until x in [1..2];
  case x of
  1: begin
       for i:=1 to n do
         for j:=1 to n do
           a[i,j]:=random(19)-9;
      end;
  2: begin
     for i:=1 to n do
       for j:=1 to n do
       begin
         write('a[i],[j] = ');
         readln(a[i,j]);
       end;
     end;
  end;
  s:=0;
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if a[i,j]<0 then s:=s+a[i,j];
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Преобразованная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i+j=n+1 then a[i,j]:=s;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.