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

sum:=0;
for i:=1 to n do
if a[i]<0 then sum:=sum+a[i];

uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива:');
readln (n) s=0;
begin
for i:=1 to n do
a[i]:=random (15)-10;
write (a[i],' ');
end
writeln;
for i:=1 to n do
if a[i]<0 then
  s:=s+a[i];
writeln ('s=',s);
readln
end.

uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива n=');
readln (n);
s=0;
for i:=1 to n do
 begin
  a[i]:=random (15)-10;
  write (a[i],' ');
  if a[i]<0 then s:=s+a[i];
 end;
writeln;
writeln ('s=',s);
readln
end.