Найти площадь и периметр

uses crt;
const max=20;
type point=record
           x,y:real
           end;
     vec=array[1..max+1] of point;
procedure init(var a:vec;var n:byte);
var i:byte;
begin
repeat
write('Введите количество вершин от 3 до ',max,' n=');
readln(n);
until n in [3..max];
writeln('Введите координаты вершин в порядке обхода по часовой стрелке');
for i:=1 to n do
 begin
  writeln('Вершина ',i);
  readln(a[i].x,a[i].y);
 end;
a[n+1]:=a[1];
end;
function perimetr(a:vec;n:byte):real;
var i:byte;
    p:real;
begin
p:=0;
for i:=1 to n do
p:=p+sqrt(sqr(a[i].x-a[i+1].x)+sqr(a[i].y-a[i+1].y));
perimetr:=p
end;
function ploshad(a:vec;n:byte):real;
var i:byte;
    sx,sy:real;
begin
sx:=0;
sy:=0;
for i:=1 to n do
 begin
  sx:=sx+a[i].x*a[i+1].y;
  sy:=sy+a[i].y*a[i+1].x;
 end;
ploshad:=abs(sx-sy)/2;
end;
var a:vec;
    n:byte;
begin
init(a,n);
writeln('Периметр=',perimetr(a,n):0:2);
writeln('Площадь=',ploshad(a,n):0:2);
end.