var m:array of real;
...
procedure x ();
var i:integer
setlenth(m , strtoint(edit1.text));
for i to strtoint(edit1.text)-1 do begin
m[i]:=random(1000)-500; //Взависимости от куда ты их хочешь вводить поменяй эту строку
memo1.text:=memo1.text+' '+floattostr(m[i]);
end;
end;