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

var a:array[1..100] of integer;
i,n,s,b,f,x:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('Введите число X: ');
readln(x);
for i:=1 to n do begin
if a[i]<0 then f:=f+a[i];
if a[i]>0 and a[i]<b then inc(s)
end;
write('Сумма отрицательных= ',f);
writeln;
write('Количество чисел, удовл. условию= 's)
end.

uses crt;
var a:array[1..100] of integer;
i,n,s,f,x,k:integer;
begin
write('Ââåäèòå ðàçìåð ìàññèâà: ');
readln(n);
writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('Ââåäèòå ÷èñëî X: ');
readln(x);
for i:=1 to n do begin
if a[i]<0 then f:=f+a[i];
if (a[i]>0) and (a[i]<x) then inc(s);
end;
for i:=2 to n do begin
if (A[i]<0) and (A[i-1]>0) then k:=i;
if (A[i]>0) and (A[i-1]<0) then k:=i;
end;
writeln('Ñóììà îòðèöàòåëüíûõ= ',f);
writeln('Êîëè÷åñòâî ÷èñåë, óäîâë. óñëîâèþ= ',s);
writeln('Íîìåðà ïîñëåäíåé ðàçíîçíàêîâîé ïàðû: À[',k-1,'] è À[',k,'];');
end.

uses crt;
type mas1 = array[1..30] of integer;
     mas2 = array[1..30] of real;
var D: mas1;
    A: mas2;
    i,j: byte;
begin clrscr;
writeln('Ââîäèòå ìàññèâ: ');
for i:=1 to 30 do begin
read(D[i]);
if odd(i) then D[i]:=sqr(i);
end;
for i:=1 to 30 do
  if d[i] mod 5 = 0 then begin
  D[i]:=0;
  break end;
writeln('Ìàññèâ D: ');
for i:=1 to 30 do write(D[i]:5);
writeln;
writeln('Ìàññèâ À: ');
for i:=1 to 30 do begin
if odd(i) then A[i]:=D[i]/i
  else A[i]:=sqr(D[i]);
write(A[i]:5:1);
end;
readkey
end.