создание формы в Delphi

[lamer__]

Здравствуйте.

Требовалось написать программу : В одномерном массиве,состоящем из 20 вещественных элементов(значения элементов массива задать случайными из интервала [-5,8]),вычислить сумму элементов массива ,расположенных до последнего положительного элемента.Сформировать из этих элементов новый массив.


Код Delphi

var A1:array[1..20] of real;
A2:array[1..20] of real;
summ:real;
last_positive,i:integer;
Begin
 
for i:=1 to 20 do begin
  A1[i] := random(13)-5;
  write(A1[i]:6:3);
  write(' ');
  if A1[i]>0 then last_positive := i;
end;
writeln;
 
for i:=1 to last_positive do begin
  A2[i] := A1[i];
  summ := summ + A2[i];
  write(A2[i]:6:3);
  write(' ');
end;
 
writeln;
write('summ: ');
writeln(summ:6:3);
readln;
 
 
End.

помогите пожалуйста создать в дельфи форму,в которой будет окно для вывода массива заданного случайными числами и кнопку для рефреша этого массива,окно для нового массива,окно для суммы элементов



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.