Организовать и визуализировать массив целых чисел

// глобальные переменные
var
  arr: array of integer; // массив
  r_arr: array of real;   // массив для результа
  size: integer=10;      // размер массива
// где то в начале задаем размер массивам
SetLength( arr, size ); SetLength( r_arr, size );
// "режим умножения"
for I:=0 to High(arr) do // умножаем на число введенное в Edit1
 r_arr[I] := arr[I] * StrToInt( Edit1.Text );
// "режим деления"
if Edit1.Text='0' then // если пытаются разделить на 0
 begin // то возвращаем фокус на Edit1 и выходим
  Edit1.Setfocus; exit;
 end;
for I:=0 to High(arr) do // делим на число введенное в Edit1
 r_arr[I] := arr[I] / StrToInt( Edit1.Text ); 
// вывод массивов в Memo1
Memo1.Lines.Add('Исходный массив: ')
for I:=0 to Size-1 do
  memo1.Lines.Add( IntToStr( arr[I] ) );
Memo1.Lines.Add('Выходной массив: ')
for I:=0 to Size-1 do
  memo1.Lines.Add( FloatToStr( r_arr[I] ) );