В массиве М (8)найти количествои квадрат суммы отрицатьльных элементов

//PascalABC.Net 3.2
begin
var m:=ReadArrInteger(Вводите массив: , readinteger(Кол-во эл.: ));
var sum:=0; var count:=0;
for var i:=0 to length(m)-1 do if m[i]lt;0 then begin sum+=m[i]; count+=1; end;
writeln (Кол-во: , count);
write (Квадрат суммы: , sqr(sum))
end.