Помогите!!!

[Fanis]

procedure TForm1.Button1Click(Sender: TObject);
var
m,n,c:array of integer;i:integer;
d:Massiv;
begin
SetLength(m,5);
Memo1.Lines.Clear;
m[0]:=1;
m[1]:=2;
m[2]:=3;
m[3]:=4;
m[4]:=5;
for i:=Low(m) to High(m) do
Memo1.Lines.Add(IntToStr(m[i]));
SetLength(n,5);
Memo2.Lines.Clear;
n[0]:=5;
n[1]:=4;
n[2]:=3;
n[3]:=2;
n[4]:=1;
for i:=Low(n) to High(n) do
Memo2.Lines.Add(IntToStr(n[i]));
// SetLength(c,5);
// Memo3.Lines.Clear;
// for i:=Low(c) to High(c) do
// begin
// c[i]:=n[i]*m[i];
// Memo3.Lines.Add(IntToStr(c[i]));
// end;
d:=ProizvedMass(m,n);

Memo3.Lines.Add(IntToStr(c[i]));
end;
вот и процедура, тока не рабочая..

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var
m,n,c:array of integer;i:integer;
d:Massiv;
begin
SetLength(m,5);
Memo1.Lines.Clear;
m[0]:=1;
m[1]:=2;
m[2]:=3;
m[3]:=4;
m[4]:=5;
for i:=Low(m) to High(m) do
Memo1.Lines.Add(IntToStr(m[i]));
SetLength(n,5);
Memo2.Lines.Clear;
n[0]:=5;
n[1]:=4;
n[2]:=3;
n[3]:=2;
n[4]:=1;
for i:=Low(n) to High(n) do
Memo2.Lines.Add(IntToStr(n[i]));
// SetLength(c,5);
// Memo3.Lines.Clear;
// for i:=Low(c) to High(c) do
// begin
// c[i]:=n[i]*m[i];
// Memo3.Lines.Add(IntToStr(c[i]));
// end;
d:=ProizvedMass(m,n);

Memo3.Lines.Add(IntToStr(d[i]));
end;

вам какой массив выводить надо?
а вы что выводили?