Стек: найти максимальный элемент и вставить после него 0

procedure TForm1.Button1Click(Sender: TObject);
var i, tmp, tmpi :Integer;
    Massiv: Array [0..9]  of Integer;
begin
for i:=0 to 10 do
Massiv[i]:= Random(100);    // заполнение массива случайными числами
 
StringGrid1.ColCount:=11;
StringGrid1.RowCount:=2;
//StringGrid1.Repaint;
 
// Выведем результат
for i:=0 to 9 do
  StringGrid1.Cells[i,0]:=IntToStr(Massiv[i]);
 
// ищем максимальный элемент, вернее его индекс в массиве
tmp:=Massiv[0];
tmpi:=0;
for i:=0 to 9 do
begin
  if tmp<Massiv[i] then
    begin
      tmp:=Massiv[i];
      tmpi:=i;
    end;
end;
Form1.Caption:=IntToStr(tmpi)+' - '+IntToStr(tmp);
 
// А теперь составляем новый массив и сразу записываем его в StringGrid1
for i:=0 to tmpi do
begin
  StringGrid1.Cells[i,1]:=StringGrid1.Cells[i,0];
end;
StringGrid1.Cells[i,1]:='0';
 
for i:=tmpi+1 to 9 do
begin
  StringGrid1.Cells[i+1,1]:=StringGrid1.Cells[i,0];
end;
 
 
 
end;