Значение массивы выводятся в ListBox

[hadgehog]

Нужно что бы полученное значение массива выводилось в ListBox, а значение параметра A вводятся в Edit. Я опять запуталась, помогите пожалуйста..

var
  k, i, a: integer;
  x: real;
  y: array of real;
 
begin
  readln(a);
  x := -3;
  k := round((3 - (-3)) / 0.5) + 1;
  setlength(y, k);
  while x <= 3 do
  begin
    case a of
      2: y[i] := sqr(cos(x)) + a;
      -1: y[i] := (x * x * x - a) / 10;
      5: y[i] := sqrt(x + a);
    end;
    writeln(x:8:2, y[i]:8:2);
    x := x + 0.5;
    inc(i);
  end;
end.