Вставить строку,массив.Рекурсия[delphi]

[MariaD]

1.Задача заключается в том, чтобы вставить первую строку после той, где находится максимальный элемент.У меня строка не вставляется.
2.И как сделать рекурсивно

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var y:array[0..2,0..2] of Integer;
i,j,k,n,max:Integer;
begin
 for i:=0 to 2 do begin
   for j:=0 to 2 do begin
     y[j,i]:=StrToInt(StringGrid1.cells[j,i]);
   end;
 end;

max:=0;
 for i:=0 to 2 do begin
   for j:=0 to 2 do begin
    if y[j,i]>max then begin
      max:=y[j,i];n:=i;
    end;
   end;
 end;

  for i:=0 to 2 do begin
   for j:=0 to 2 do begin
   k:=y[j,i];
   y[j,i]:= y[j,n];
   y[j,n]:=k;
   end;
   end;


 for i:=0 to 2 do begin
   for j:=0 to 2 do begin
     StringGrid2.cells[j,i]:=inttostr(y[j,i]);
   end;
 end;
end;
end.

[Stilet]

Посмотри этот пример: http://www.programmersforum.ru/showp...39&postcount=8
Тут есть вставка.
Вставляется пустая строка как я понимаю. А потом просто

with StringGrid do Rows[вставленная].Text:=Rows[0].text;

Перенесешь данные строки.
Удаление строки в примере есть.

P.S. Зачем формулу то нарисовала?