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

program Project1;
uses
  CRT;
const
  maxrow = 3;
  maxcol = 5;
var
  a: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; { Переменная для хранения значения суммы отрицательных элементов}
  tmp: integer; {Промежуточная переменная для обмена значениями элементов }
begin
  Randomize;
  for i:= 1 to 3 do
    for j:= 1 to 5 do
       a[i,j]:= random(11)-5;
  writeln('Исходный массив: ');
  for i:= 1 to 3 do
    begin
      for j:= 1 to 5 do
        begin
          textcolor(7);
          if (i = 1) and (j = 2) then
            textcolor(10);
          if (i = 2) and (j = 1) then
            textcolor(14);
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  sum:= 0;
  for i:= 1 to 3 do
    for j:= 1 to 5 do
      if a[i,j] < 0 then
        sum:= sum + a[i,j];   {Суммирование отрицательных элементов}
  writeln('Сумма отрицательных элементов: ', sum);
  tmp:= a[1,2];    {Обмен значениями между элементами}
  a[1,2]:= a[2,1];
  a[2,1]:= tmp;
  writeln('Измененный массив: ');
  for i:= 1 to 3 do
    begin
      for j:= 1 to 5 do
         begin
          textcolor(7);
          if (i = 1) and (j = 2) then
            textcolor(10);
          if (i = 2) and (j = 1) then
            textcolor(14);
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
 
  Readln;
end.