Задача на двумерный массив в Delphi

[Alena-kursk]

В регионе из 8 областей в течение ряда лет ведется компьютерный учет количества преступлений по каждой области. Найти и вывести на экран названия областей, в которых было совершено максимальное и минимальное количество преступлений в прошлом и текущем годах.
Все, до чего смогла додуматься:

procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Название области';
StringGrid1.Cells[1,0]:='2006';
StringGrid1.Cells[2,0]:='2007';
StringGrid1.Cells[3,0]:='2008';
StringGrid1.Cells[4,0]:='2009';
end;

procedure TForm1.Button1Click(Sender: TObject);
Var Prestup:array[0..4,1..8] of integer;
    Sum:array[1..8] of integer;
    i,k,Max,Min,Obl1,Obl2:integer;
begin
 for i:=1 to 8 do
   begin
    Sum[i]:=0;
     for k:=3 to 4 do
       begin
     Prestup[k,i]:=strtoint(StringGrid1.Cells[k,i]);
     Sum[i]:=Sum[i]+Prestup[k,i];
      end;
  Prestup[k,i]:=strtoint(StringGrid1.Cells[k,i]);
  Sum[i]:=Sum[i]+Prestup[k,i];
       end;

 Max:=Sum[1];
 Obl1:=Prestup[0,1];

 for i:=1 to 8 do
   begin
 if Sum[i]>Max then Max:=Sum[i];
 Obl1:=Prestup[0,i];
 Label1.Caption:='Максимально'+inttostr(Obl1);
end;

 Min:=Sum[1];
 Obl2:=Prestup[0,1];
 for i:=1 to 8 do
 begin
 if Sum[i]<Min then Min:=Sum[i];
 Obl2:=Prestup[0,i];
 Label2.Caption:='Минимально'+inttostr(Obl2);
 end;

 end;
end.

Программа считает, но неправильно.
Подскажите пожалуйста, где ошибка.

[mihali4]

Все, до чего смогла додуматься

Еще бы правила почитать... додуматься...
Ладно, на первый раз сам подправлю.
По теме.
Вызывает удивление:

for k:=3 to 4 do
begin
Prestup[k-1,i]:=strtoint(StringGrid1.Cells[k-1,i]);

А почему начинаете со второго столбца и заканчиваете третьим?
Это - для начала.
Просто спать уже ложусь...

[Alena-kursk]

Да,надо:
for k:=3 to 4 do
begin
Prestup[k,i]:=strtoint(StringGrid1.Cells[k,i]);
но так выдает ошибку

[ОДИНОЧЕСТВО В СЕТИ]

вот пример!

procedure TForm1.formCreate(Sender: TObject);
const ye=2005;
var i,j:Integer;
begin
for i:=1 to strngrd1.ColCount-1 do begin
  strngrd1.Cells[i,0]:='область №'+inttostr(i);
  strngrd1.ColWidths[i]:=80;end;
  for j:=1 to strngrd1.RowCount-1 do
  strngrd1.cells[0,j]:= IntToStr(ye+j);
 end;

procedure TForm1.btn1Click(Sender: TObject);
var i,min,max:Integer;
    imin,imax:integer;
begin
  min:= strtoint(strngrd1.cells[1,4]);
  max:= strtoint(strngrd1.cells[1,4]);
  imax:=1;
  imin:=1;
  for i:=1 to strngrd1.ColCount-1 do begin
      if strtoint(strngrd1.cells[i,4])<min then begin
       min:=strtoint(strngrd1.cells[i,4]);
       imin:=i;
      end;
     if strtoint(strngrd1.cells[i,4])>max then begin
       max:=strtoint(strngrd1.cells[i,4]);
       imax:=i;
      end;
   end;
  lbl1.Caption:='максимум в текущем году в области №'+inttostr(imax);
  lbl2.Caption:='минимум в текущемгоду в области №'+inttostr(imin);
  min:= strtoint(strngrd1.cells[1,3]);
  max:= strtoint(strngrd1.cells[1,3]);
  imax:=1;
  imin:=1;
  for i:=1 to strngrd1.ColCount-1 do begin
      if strtoint(strngrd1.cells[i,3])<min then begin
       min:=strtoint(strngrd1.cells[i,3]);
       imin:=i;
      end;
     if strtoint(strngrd1.cells[i,3])>max then begin
       max:=strtoint(strngrd1.cells[i,3]);
       imax:=i;
      end;
   end;
   lbl3.Caption:='максимум в прошлом году в области №'+inttostr(imax);
   lbl4.Caption:='минимум в прошлом году в области №'+inttostr(imin);
end;

[ОДИНОЧЕСТВО В СЕТИ]

Создаем консольное приложение.

а это тут зачем?