Вычисление площади многоугольника (перевести с C++ и Delphi)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type ar=array[0..10,1..2] of real;
var
  Form1: TForm1;
  n:integer;
implementation
 
{$R *.dfm}
function taras(n:integer; a:ar):real;
var i:integer;
    s:real;
begin
a[0,1]:=a[n,1];
a[0,2]:=a[n,2];
s:=0;
for i:=0 to n-1 do
s:=s+(a[i,1]+a[i+1,1])*(a[i,2]-a[i+1,2]);
result:=abs(s)/2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//
val(Edit1.Text,n,i);
if(i<>0)or not (n in [1..n]) then
 begin
  ShowMessage('Невірно введено N, повторіть');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
//
with StringGrid1 do
 begin
  fixedcols:=1;
  fixedrows:=0;
  colCount:=n+1;
  rowcount:=2;
  cells[0,0]:='X';
  cells[0,1]:='Y';
  defaultcolwidth:=40;
 end;
ShowMessage('Введіть координати вершин');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a:ar;
    i,j,c,k:integer;
begin
//
k:=0;
i:=1;
while(i<=n)and(k=0) do
 begin
  j:=1;
  while(j<=2)and(k=0) do
   begin
    val(StringGrid1.Cells[i,j-1],a[i,j],c);
    if c<>0 then k:=1
    else inc(j);
   end;
  if k=0 then inc(i)
 end;
 
Edit2.Text:='s='+floattostrF(taras(n,a),ffFixed,5,2)
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
 
Edit2.Clear;
end;      procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.