Дана матрица а (4*5). вычислить сумму квадратов всех ее отрицательных элементов. кто сможет решите на паскале?

Const
  m=4;
  n=5;
var
  a:array[1..m,1..n] of integer;
  i,j,s,e:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to m do
    begin
    for j:=1 to n do
      begin
      e:=Random(100)-50;
      a[i,j]:=e;
      if e<0 then s:=s+sqr(e);
      write(e:4)
      end;
    writeln
    end;
  writeln('Сумма квадратов отрицательных элементов равна ',s)
end.

Тестовое решение:

  43 -12 -47  27  34
 -47 -44 -38  47  -5
  29 -40 -44  46  21
 -17  32   0  10 -43
Сумма квадратов отрицательных элементов равна 13641