Не могу сделать кнопу для вывода самого дорого блюда(вес\цена)

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, Windows, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Grids;
 
 
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject;Arow: integer);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DeleteRow(ARow: Integer);
    procedure Memo1Change(Sender: TObject);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
 
 
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  goddr: array [0..1000] of word;
  familia: array [0..1000] of string;
  rez: array [0..1000] of word;
  a,f1:textfile;
  s:integer;
  otnoshenie:real;
  i, j, Acol,d: Integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(s);
  familia[s]:=edit2.Text;
  rez[s]:=strtoint(edit3.Text);
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
  stringGrid1.Cells[0,s]:=goddr[s];
  stringGrid1.Cells[1,s]:=familia[s];
  stringGrid1.Cells[2,s]:=inttostr(rez[s]);
  assignFile(a,'архив 2.txt');
  append(a);
  writeln (a, goddr[s]);
  writeln (a, familia[s]);
  writeln (a, rez[s]);
  closeFile(a);
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
end;
 
procedure TForm1.Button2Click(Sender: TObject; Arow: integer);
begin
  StringGrid1.Rows[d].Clear;
  DeleteRow(d);
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var i,kr:integer;
  for_srafneiya,a,b:real;
  max,e:extended;
  begin
    for_srafneiya:=0;
    for i:=0 to 10 do
    begin
        a:=goddr[i];
        b:=rez [i];
        otnoshenie:=a/b;
        if for_srafneiya > otnoshenie then
           for_srafneiya:=otnoshenie;
    end;
  Memo1.Lines.Add('самая большая стоимость ='+floattostr (for_srafneiya));
end;
 
 
 
 
 
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
end;
 
 
 
 
 
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.clear;
    s:=0;
  AssignFile(a, 'архив 2.txt');
  assignfile(f1, 'архив.txt');
  reset(a);
  while not EOF (a) do
    begin
      readln (a, goddr[s]);
      readln (a, familia[s]);
      readln (a, rez[s]);
      stringGrid1.RowCount:=StringGrid1.RowCount+1;
      stringgrid1.Cells[0,s+1]:=goddr[s];
      stringgrid1.Cells[1,s+1]:=familia[s];
      stringgrid1.Cells[2,s+1]:=inttostr(rez[s]);
      inc(s);
    end;
  closefile(a);
end;
 
 
procedure TForm1.DeleteRow(ARow: Integer);
var i, j: Integer;
begin
  with StringGrid1 do
    begin
      for i:=ARow+1 to RowCount-1 do
      for j:=0 to ColCount-1 do
        Cells[j, i-1]:=Cells[j, i];
      for i:=0 to ColCount-1 do
        Cells[i, RowCount-1]:='';
      RowCount:=RowCount-1;
    end;
  end;
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StringGrid1.MouseToCell(X, Y, ACol, d);
  StringGrid1.Col:=ACol;
  StringGrid1.Row:=d;
end;
 
 
end.