Вызов процедуры в массиве. делфи. Как правильно вызвать процедуру и сделать так, чтобы результаты вписывались в memo1.Lines.

[vallera]

P.S. Процедура умножает элементы массива на задаваемое пользователем число и создаёт новый массив вместо старой



Procedure M(var P:real;var R:real;m:array of integer);
var k:byte;
begin
for k:=0 to high(m) do begin
if m[k] mod 2 = 0 then
R:=m[k]*P else R:=m[k];
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var x:array of integer;
Cod:integer;
n,i:byte;
a,r:real;
begin
a:=StrToFloat(Edit1.Text);
n:=Memo1.Lines.Count;
SetLength(x,n);
for i:=0 to n-1 do begin
Val(Memo1.lines[i],x[i],Cod);
if Cod<>0 then
begin
ShowMessage('Нарушение синтаксиса массива 1');Exit;
end;
end;
M(a,r,x);
SetLength(x,0);
end;
end.

[Sciv]

M(a, r, x);
Memo1.Lines.Add(r);

насчёт Add не уверен точно, в Lines он или в самом Memo