В массиве из 10 элементов найти квадрат суммы всех отрицательных элементов — Pascal(Паскаль)

Program Z1;
const N=10;
var sum, i:integer;
    a: array [1..N] of integer;
begin
     sum := 0;
     for i:=1 to N do
        begin
        readln(a[i]);
        if a[i] < 0 then
           sum := sum + a[i];
        end;
     sum := sum*sum;
     writeln('sum= ',sum);
     readln;
end.