Иправить простенькую программу в Delphi в окне (Сегодня)

[to-ot]

Здраствуйте, нужно срочно исправить программку)Завтра зачет! Готов заплатить!

Множество значений, имеющихся в массиве D, которых нет в массиве С, и которые не равны А, Значение А задано!Сумма найденых значений!

Что она не правельно выводит как-то или не туда хз, вообщем вот гляньте)Только пожалуйста кто сможет исправить! Ненадо вводить какието новые команда) Или как то позамудренному исправлять) Мне как можно проще надо) вообще только подправить!)
Unit1 b Unit2

МОГУ СКИНУТЬ В АРХИВЕ ГОТОВЫЙ ПРОЕКТ!

Основная кнопака (Вычисление)UNIT 1

procedure TForm1.Button4Click(Sender: TObject);
var i:integer; A:integer;
B:array of integer;

begin
SetLength(D,n);
for i:=0 to n-1 do
if StringGrid1.Cells[i,1]='' then
D[i]:= 0
else
D[i]:=StrToInt(StringGrid1.Cells[i,1]);

SetLength(C,n);
for i:=0 to n-1 do
if StringGrid2.Cells[i,1]='' then
C[i]:= 0
else
C[i]:=StrToInt(StringGrid2.Cells[i,1]);

SetLength(B,n);
A:=StrToInt(Edit3.Text);
new_array(D,C,A,B,k);//new_array(D,C:array of integer;A:integer;var B:array of integer;var k:integer);
for i:=0 to k-1 do
StringGrid3.Cells[i,0]:=FloatToStr(B[i-1]);

end;


UNIT 2
unit Unit2;

interface {интерфейсная часть модуля}

procedure new_array(D,C:array of integer;A:integer;var B:array of integer;var k:integer);
function sum (B: array of integer):real;
implementation
procedure new_array;
var i,j:integer;
flag:boolean;
begin
k:=0;
for i:=Low(D) to High(D) do
begin
flag:=false;
j:=0;
while (j<=High(C)) and not flag do
if (C[j]=D[i]) or (D[i]=A) then
flag:=true else
j:=j+1;

if not flag then
begin
B[k]:=D[i];
k:=k+1;
end;
end;
end;
function sum; {исполняемая часть модуля}
Var i: integer; s:real;
begin
s:=0;
for i:=Low(B) to High(B) do
s:=s+B[i];
sum:=s;
end;


end.

[Rehsuperauqs]

аська 435619045

[Petrovi4]

ICQ - 324-783-266
Сделаю быстро, качественно, не дорого.
Предоплаты не требую!!!

[Mad_Cat]

icq 723-32[один]

[dosha]

стучи 631694469

[frilans]

Пиши решу Дёшево
ICQ: 410691984