Переделать под комбинированный тип данных

program pr11;
var x1,x2,x3,y1,y2,y3,ab,bc,ac,p:real;
begin
writeln('Координаты точки А');
readln(x1,y1);
writeln('Координаты точки B');
readln(x2,y2);
writeln('Координаты точки C');
readln(x3,y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
bc:=sqrt(sqr(x3-x2)+sqr(y3-y2));
ac:=sqrt(sqr(x1-x3)+sqr(y3-y1));
p:=ab+bc+ac;
writeln('Периметр равен = ',p:4:1);
end.

program pr11;
type koord = record
     x1,y1:real;
     x2,y2:real;
     x3,y3:real;
     end;
var a:koord;
    ab,bc,ac,p:real;
begin
writeln('Координаты точки А');
readln(a.x1,a.y1);
writeln('Координаты точки B');
readln(a.x2,a.y2);
writeln('Координаты точки C');
readln(a.x3,a.y3);
ab:=sqrt(sqr(a.x2-a.x1)+sqr(a.y2-a.y1));
bc:=sqrt(sqr(a.x3-a.x2)+sqr(a.y3-a.y2));
ac:=sqrt(sqr(a.x1-a.x3)+sqr(a.y3-a.y1));
p:=ab+bc+ac;
writeln('Периметр равен = ',p:4:1);
end.

program pr11;
type
  koord = record
    x, y: Real;
  end;
var
  a: array[1..3] of koord;
  i: Integer;
  ab,bc,ac,p: Real;
begin
  for i:=1 to 3 do
  begin
    writeln('Êîîðäèíàòû ',i,' òî÷êè');
    readln(a[i].x,a[i].y);
  end;
  ab:=sqrt(sqr(a[2].x-a[1].x)+sqr(a[2].y-a[1].y));
  bc:=sqrt(sqr(a[3].x-a[2].x)+sqr(a[3].y-a[2].y));
  ac:=sqrt(sqr(a[1].x-a[3].x)+sqr(a[3].y-a[1].y));
  p:=ab+bc+ac;
  writeln('Ïåðèìåòð ðàâåí = ',p:4:1);
end.

type TPont=record
           x,y:real;
           end;

program pr11;
type tochka = record
     x,y:real;
     end;
var a,b,c:tochka;
    ab,bc,ac,p,d:real;
procedure dlina(t1,t2:tochka;var d:real);
begin
d:=sqrt(sqr(t2.x-t1.x)+sqr(t2.y-t1.y));
end;
 
begin
writeln('Координаты точки А');
readln(a.x,a.y);
writeln('Координаты точки B');
readln(b.x,b.y);
writeln('Координаты точки C');
readln(c.x,c.y);
 
dlina(a,b,d);
p:=d;
dlina(b,c,d);
p:=p+d;
dlina(a,c,d);
p:=p+d;
 
writeln('Периметр равен = ',p:4:2);
end.