задача на одномерный массив в delphi

[kirill957]

Для Массива А.Определить сумму отрицательных элементов,количество положительных.


вот код программы но там ошибка

var
  Form1: TForm1;
   mas:array[1..20] of integer;
   IndexMin,min,max,k,n,sum,i:integer;
   s:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
for i:=1 to 5 do mas[i]:=random(4)+2;
S:='';
for i:=1 to 5 do
S:=S+IntToStr(mas[i])+' ';
Edit2.Text:=S;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if
CheckBox1.Checked then
begin
sum:=-1;
for i:=1 to n do
sum:=sum+mas[i];
end;
if
CheckBox2.Checked then
begin
k:=0;
for i:=1 to n do
if mas[i]>0 then k:=k+1;
end;
begin
if
CheckBox1.Checked then
Edit3.Text:=IntToStr(sum);
if
CheckBox2.Checked then
Edit4.Text:=IntToStr(k);
if
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Sum:=0;
For i:=1 to n do
 If a[i] <0 then
  Sum:=sum+a[i];

Сумма отрицательных. Исправьте.