Перевести код с Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ComCtrls, Buttons, Grids;
 
type
  TForm1 = class(TForm)
    SpinEdit2: TSpinEdit;
    StringGrid1: TStringGrid;
    StringGrid3: TStringGrid;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
  a, a2:array[1..90,1..90] of integer;
  col, b, c:array[1..90] of integer;
 l,i,j, t, z, min, i1, sum, li, lj:integer;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
button1Click(Sender);
 
sum:=0;
  for i:=1 to stringgrid1.colcount-1 do
    begin
      col[i]:=i;
      for j:=1 to stringgrid1.colcount-1 do
      begin
        a[i,j]:=strtoint(stringgrid1.cells[i,j]);
        a2[i,j]:=strtoint(stringgrid1.cells[i,j]);
      end;
    end;
 
  b[1]:=1;
  b[2]:=2;
  j:=1;
  min:=a[2,1];
 
  c[1]:=min;
  for t:=2 to stringgrid1.colcount-1 do
    begin
    for i:=1 to stringgrid1.ColCount-1 do
      begin
        if a[i,j]>0 then
          if min>a[i,j] then
            begin
              min:=a[i,j];
              b[t]:=i;
              c[t]:=min;
            end;
        end;
     z:=b[t];
    j:=col[z];
    col[z]:=0;
    z:=b[t-1];
 
    for i1:=1 to stringgrid1.ColCount -1 do
    begin
    a[i1,z]:=0;
    a[z,i1]:=0;
    end;
 
    for i1:=1 to stringgrid1.ColCount do
    if a[i1,j]>0 then
    begin
    min:=a[i1,j];
    b[t+1]:=i1;
    c[t+1]:=min;
    end;
    end;
 
    li:=b[1];
    lj:=b[stringgrid1.ColCount-1];
    b[stringgrid1.colcount]:=b[1];
    c[stringgrid1.ColCount]:=a2[li,lj];
 
    for i:=1 to stringgrid1.colcount do
    begin
    stringgrid3.Cells[i,1]:=inttostr(b[i]);
    sum:=sum+c[i];
    end;
 
    edit1.Text :=inttostr(sum);
    stringgrid1.Visible :=false;
    stringgrid3.Visible :=true;
    edit1.Visible:=true;
    BitBtn1.Visible:=false;
    spinedit2.Visible:=false;
    button3.Visible :=true;
  end;
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.ColCount:=SpinEdit2.value+1;
StringGrid3.ColCount:=SpinEdit2.value+2;
StringGrid1.RowCount:=SpinEdit2.value+1;
 
l:=StringGrid1.ColCount-1;
Button2Click(Sender);
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
FOR I:=1 TO l DO
begin
Stringgrid1.Cells [I, i]:='0';
end;
 
FOR I:=1 TO l DO
begin
Stringgrid1.Cells [I, 0]:='№'+INTTOSTR(I);
Stringgrid1.Cells [0, i]:='№'+INTTOSTR(I);
end;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
L:=StringGrid1.ColCount-1;
Button2Click(Sender);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
For i:=1 to l do
For  j:=i to l  do
if a[i,j]<>a[j,i] then
begin
messagedlg('Неправильный ввод данных', mtError, [mbOk],0);
exit;
end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=1 to stringgrid1.ColCount -1 do
for j:=1 to stringgrid1.colcount-1 do
begin
stringgrid1.Cells[i,j]:='';
stringgrid3.Cells [i, 1]:='';
end;
 
    stringgrid1.Visible :=true;
    stringgrid3.Visible :=false;
    edit1.Visible:=false;
    BitBtn1.Visible:=true;
    spinedit2.Visible:=true;
    button3.Visible :=false;;
 
end;
 
end.