Если элемент массива четный, то прибавить к нему первый элемент массива, если нечетный - то последний. В чем ошибка?

type ta=array [1..10] of integer;
procedure Ms(i:integer;a:ta);
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10);
end;
procedure proverka(i:integer;a:ta);
begin
for i:=2 to 9 do
if a[i] mod 2=0 then a[i]:=a[i]+a[1]
else a[i]:=a[i]+a[10];
end;
procedure wiwod (i:integer;a:ta);
begin
for i:=1 to 10 do
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 a:array [1..10] of integer;
 i:integer;
begin
 Ms(IntToStr(StringGrid1.Cells[i]),a[i]),
 proverka,
 wiwod(a[i]:=IntToStr(StringGrid2.Cells[i]));
end;
end.

type ta=array [1..10] of integer;
procedure Ms(a:ta);
Var
  i : Integer;
begin
  randomize;
  for i:=1 to 10 do
  a[i]:=random(10);
end;
 
procedure proverka(a:ta);
Var
  i : Integer;
begin
  for i:=2 to 9 do
  if a[i] mod 2=0 then a[i]:=a[i]+a[1]
  else a[i]:=a[i]+a[10];
end;
 
procedure wiwod (SG:TStringGrid;a:ta);
Var
  i : Integer;
begin
  for i:=1 to 10 do
  SG.Cells[i]:=IntToStr(a[i]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 a:ta;
begin
 Ms(a);
 proverka;
 wiwod(StringGrid2,a);
end;
 
end.

SG.Cells[0,i]:=IntToStr(a[i]);

SG.Cells[i,0]:=IntToStr(a[i]);

procedure Ms(SG:TStringGrid;a:ta);
Var
  i : Integer;
begin
  randomize;
  for i:=1 to 10 do
  begin
    a[i]:=random(10);
    SG.Cells[0,i]:=IntToStr(a[i]);
  end;
end;

Ms(StringGrid1,a);