Одномерный массив: является ли данный массив геометрической или же арифметической прогрессией

var 
MyArray : array of integer; //объявляем динам. массив
 
SetLength(MyArray, StrtoInt(Edit1.Text)); //задаем размер через текст. поле

Var
i,j,n,k:integer;
A:array of integer;
begin
SetLength(A, StrtoInt(Edit1.Text))// я так взял размер массива.

//объявляем глобально
 A:array of integer;
i, n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;  //очищаем Memo при запуске программы
end;
 
//задаем размерность массива
procedure TForm1.Button1Click(Sender: TObject);
begin
 n :=StrtoInt(Edit1.Text); //задаем
SetLength(A, n); //выставиляем размерность
StringGrid1.ColCount :=n;  //кол-во столбцов сетки делаем равным ей
end;
 
//процедура заполнения массива через StringGrid
procedure TForm1.Button2Click(Sender: TObject);
begin
for i :=1 to n do
if Length(StringGrid1.Cells[i-1, 0]) <>0  //если ячейка не пустая
then A[i] := StrToInt(StringGrid1.Cells[i-1, 0]) //заносим ее значение в массив
else A[i] := 0; //иначе определяем как нулевой эл-т
 
for i :=1 to n do
Memo1.Lines.Add(IntToStr(A[i])); //выводим массив в Memo
end;
end.

SetLength(A, n); //выставиляем размерность

for i :=0 to n-1 do
A[i]...

For i:=0 To n-1 Do
  StringGrid1.Cells[i,0]...