Неверное количество параметров процедуры

program z6;
var x1, x2, x3, y1, y2, y3, AB, BC, AC, P: integer;
procedure dlina (var FE: real; x1, y1, x2, y2: integer);
begin
FE:=sqrt((sqr(abs(x1)-abs(x2)))+(sqr(abs(y1)-abs(y2))));
writeln (FE);
end;
begin
writeln ('Введите координаты точки A'); read (x1,y1);
writeln ('Введите координаты точки B'); read (x2,y2);
writeln ('Введите координаты точки C'); read (x3,y3);
dlina (AB);
dlina (BC);
dlina (AC);
P:=(AB+BC+AC);
writeln ('Периметр треугольника равен',' ', P);
end.

я вообще не бум-бум