Помогите доделать программку в Делфи!!!!! 1. Отыскать количество частей массива, меньших

Помогите доделать программу в Делфи!!!!!
1. Отыскать количество элементов массива, наименьших величины С, введенной с клавиатуры.
2. Отыскать сумму целых долей элементов массива, расположенных после последнего отрицательного элемента.
3. Преобразовать массив таким образом, чтоб поначалу располагались все элементы, отличающиеся от наибольшего не более чем на 20%, а позже все остальные

Часть программки уже есть:
unit UnitVector;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons;

type
TformVector = class(TForm)
sgVectorInput: TStringGrid;
btnVectorInput: TButton;
Label1: TLabel;
editVectorSize: TEdit;
btnVectorSize: TBitBtn;
btnRandomVector: TButton;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
procedure btnVectorInputClick(Sender: TObject);
procedure btnVectorSizeClick(Sender: TObject);
procedure btnRandomVectorClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;

var
formVector: TformVector;
A : array[1..100] of integer;
SizeA : integer;

implementation

R *.dfm

procedure TformVector.btnRandomVectorClick(Sender: TObject);
var i : integer;
begin
Randomize;
for i := 0 to SizeA - 1 do
begin
A[i]:=random(100)-30;
sgVectorInput.Cells[i,0]:=IntToStr(A[i]);
end;
end;

procedure TformVector.btnVectorInputClick(Sender: TObject);
var i : integer;
begin
for i := 0 to SizeA - 1 do A[i]:=StrToInt(sgVectorInput.Cells[i,0]);

end;

procedure TformVector.btnVectorSizeClick(Sender: TObject);
begin
SizeA:=StrToInt(editVectorSize.Text);
sgVectorInput.ColCount:=SizeA;
end;

procedure TformVector.Button1Click(Sender: TObject);
B,C: integer
begin
B:=0;
a[i]lt; StrToInt(edit1)
end;

procedure TformVector.FormCreate(Sender: TObject);
begin
SizeA:=10;
end;

end.