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

var
  Form1: TForm1;
  a:array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var b:integer;
begin
if not TryStrToInt(Edit1.Text,b)or(StrToInt(Edit1.Text)<2)then
 begin
  ShowMessage('Неверно введен размер массива');
  exit
 end;
n:=StrToInt(Edit1.Text);
Setlength(a,n);
with StringGrid1 do
 begin
  rowcount:=1;
  colcount:=n;
  defaultcolwidth:=30;
  fixedcols:=0;
  fixedrows:=0;
  options:=options+[goEditing,goTabs];
 end;
ShowMessage('Введите элементы массива, целые числа,'+#13#10+
             'в том числе последовательности возрастающих');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,mx:integer;
begin
 i:=0;
 k:=0;
 while(i<n)and(k=0)do
 if not TryStrToInt(StringGrid1.Cells[i,0],j)then k:=1
 else inc(i);
 if k=1 then
  begin
   ShowMessage('Не все значения введены верно');
   exit
  end;
 for i:=0 to n-1 do
 a[i]:=StrToInt(StringGrid1.Cells[i,0]);
 i:=1;mx:=1;
 while i<n do
 if a[i]>a[i-1] then
  begin
   j:=i;k:=1;
   while (j<n)and(a[j]>a[j-1])do
    begin
     k:=k+1;
     j:=j+1;
    end;
   if k>mx then mx:=k;
   i:=i+k;
  end
 else i:=i+1;
 if mx=1 then Edit2.Text:='Нет участков возрастания!'
 else Edit2.Text:='Максимальная последовательность возрастающих чисел='+IntTostr(mx);
end;