Найти периметр n-угольника по заданным координатам вершин

var
 count,i:integer;
 P:real;
 gx1,gx2,gy1,gy2,x0,y0:integer;
 
procedure Next(x1,y1,x2,y2:integer);
var s:real;
begin
 s:=sqrt(sqr(x2-x1)+sqr(y2-y1));
 P:=P+s;
end;
 
begin
 writeln('Введите количество вершин');
 readln(count);
 writeln('Введите координаты вершины номер "1"');
 readln(gx1,gy1);
 x0:=gx1;
 y0:=gx2;
 for i:=2 to count do
 begin
  writeln('Введите координаты вершины номер "',i,'"');
  readln(gx2,gy2);
  Next(gx1,gy1,gx2,gy2);
  gx1:=gx2;
  gy1:=gy2;
 end;
 next(x0,y0,gx1,gy1);
 writeln;
 writeln('Периметр равен ',P:0:5);
 readln;
 end.

procedure Next(x1,y1,x2,y2:integer);
var s:real;
begin
 s:=sqrt(sqr(x2-x1)+sqr(y2-y1));
 P:=P+s; //Р это что и откуда?
end;

uses crt; 
    var 
     a:real;    
     b:real;     
    c:real;    
     x1,x2,x3:integer;    
     y1,y2,y3:integer;     
     p:real;     
    begin 
     clrscr; 
       writeln('введите первую координату х '); 
       readln(x1); 
       writeln('введите вторую координату х '); 
       readln(x2); 
       writeln('введите третью координату х '); 
       readln(x3); 
       writeln('введите первую координату y '); 
       readln(y1); 
       writeln('введите вторую координату y '); 
       readln(y2); 
       writeln('введите третью координату y '); 
       readln(y3); 
       a:=sqrt(sqr(x2-x1)+sqr(y2-y1));     
       b:=sqrt(sqr(x3-x2)+sqr(y3-y2));     
       c:=sqrt(sqr(x3-x1)+sqr(y3-y1)); 
       p:=a+b+c;                                 
       writeln('периметр равен = ',p:2:0); 
       readln; 
    end.