Дана матрица А (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