Нахождение Мин И Макс элементов Массива не стандартным способом.

[gree]

Всем привет, решил написать простенькую вроде бы программу но не получилось(. Условия такие: Кнопкой один: Свормирование массива (n x n), число n задается пользователем. Кнопкой два: соответственно принятие значений ячеек массива, и нахождение максимума и минимума в тех случаях если в чеке стоит флажек. (последний пока не использую..) В итоге после запуска программы, после ввода значений при нажатии пишет ошибку.

var  n:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   a:array[1..20,1..20] of integer;
   min,max,sum,i,j:integer;
begin
   for i:=1 to n do
   for j:=1 to n do
  max:=a[1,1];
  min:=a[1,1];
  a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
   if Checkbox1.Checked then
   for i:=1 to n do
   for j:=1 to n do
   if min>a[i,j] then
  min:=a[i,j];
  Edit2.Text:=IntToStr(min);
   if Checkbox2.Checked then
   for i:=1 to n do
   for j:=1 to n do
   if max<a[i,j] then
  max:=a[i,j];
  Edit3.Text:=IntToStr(max);
end;
end.

Помогите пожалуйста разобраться.

[Utkin]

Чудненько, а какую ошибку пишет?

[gree]

Вот эту

[Levsha100]

Это потому, что Вы пытаетесь перевести в число пустую ячейку!

a:=StrToInt('');

[gree]

Да, точно же...)) спасибо...)

[Alter]

В принципе, в одном цикле можно всё сделать.