Проблемма с массивом

[ZQRey]

Здравствуйте, нужна помощь с написание кода для массива. В задании сказано: Разработать проект «Массив». Организовать в проекте ввод количества элементов и сами элементы одномерного массива. Найти максимальный элемент массива. Переписать массив, умножив каждый его элемент на максимальный элемент.
Кто может подсказать как организовать ввод кол-ва элементов?
И еще есть не большая проблема, в данный момент сделал статическое количество элементов. После умножения максимального на самого себя остальные элементы следующие за ним умножаются на получившийся результат. Как это можно устранить?

procedure TForm1.Button1Click(Sender: TObject);
const
     SIZE=5;
var
     a:array[1..SIZE]of integer; // массив целых
     max:integer; // номер максимального эл-та массива
     i:integer;	  // номер эл-та, сравниваемого с максимальным

begin
     // ввод массива
     for i:=1 to SIZE do
         a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

     // поиск максимального элемента
     max:=1;  // пусть первый элемент максимальный
     for i:=2 to SIZE do begin

         if a[i]> a[max]then max:=i;

      end;
     // вывод результата
    ShowMessage {label2.caption}('Максимальный элемент массива:'+IntToStr(a[max])
	             +#13+'Номер элемента:'+ IntToStr(max));
     for i:=1 to SIZE do
      begin
         a[i]:=StrToInt(StringGrid1.Cells[i-1,0])*a[max];
         ShowMessage('Перемноженная таблица'+#13+IntToStr(a[i])); //Выдает по одиночке, почему?
      end;
      Label2.Caption:='Максимальный элемент: '+IntToStr(a[max]);
      Label3.Caption:='Переумноженный массив'
                        +#13+IntToStr(a[i]); // После умножения макс на самого себя начинает остальное умножать на результат
end;

[ZX Spectrum-128]

Так вы ищите не максимум, а его номер.

Var
  A:array of integer;
...
  // ввести size
  Setlength(a,size);
...
Max:=a[0];
For i:=1 to size-1 do
  If a[i]>max then
     Max:=a[i];
...
For i:=0 to size-1 do 
  A[i]:=a[i]*max;