[s0Creator]

и по поводу защиты от дурака

Код:

  try
    {ввод числа элементов массива n<20}
    n := StrToInt(Edit1.text);

  except
    ShowMessage('Что Вы там по написали?');
    Edit1.text := '';
    // чтонибуть еще делаем
    Exit;
  end;