Ввод арифметической прогресии в массив

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Знайти: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure ЗнайтиClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.ЗнайтиClick(Sender: TObject);
 var
  a: array [0..20,0..2] of integer;
  i,j,imax,jmin:integer;
  min, max: integer;
begin
  for i := 0 to 19 do
    for j := 0 to 1 do
    begin
  a[i,j] := strtoint(StringGrid1.Cells[i,j]  );
  max := a[1,0];
    end;
 
  for i := 0 to 19 do
  for j := 1 to 1 do
 
    if max < a[i,j] then
    begin
        max := a[i,j];
        imax := 1971 + i;
    end;
 
   for j := 0 to 19 do
    for i := 1 to 1 do
    begin
     a[j,i] := strtoint(StringGrid1.Cells[j,i]  );
     min:= a[1,0];
 
    end;
 
     for j := 0 to 19 do
      for i := 1 to 1 do
      if min > a[j,i] then
      begin
        jmin:= 1971 + j;
        min:= a[j,i];
      end;
 
 
  Memo1.Clear;
  Memo1.Lines.Add('Максимальний урожай = '
                  +intToStr(max)+ ' цинтнер');
 Memo1.Lines.Add('В ' +intToStr(imax)+ ' году' );
  Memo1.Lines.Add('Найменьший урожай = '
                  +intToStr(min)+' цинтнер');
 
 Memo1.Lines.Add('В ' +intToStr(jmin)+ ' году');
 
 
end;
 
end.