Pascal/Turbo Pascal - distancias

{Supongo que k son cordenadas como p}

  program distancia;

  uses

     crt;

  type

     posicion = record

            xp : integer;

            yp : integer;

          end;

  var

    k, p : posicion;

  procedure entrada(var t, g : posicion);

  begin

     write('  Entre Posicion cordenada X de P : ');

     readln(t.xp);

     write('  Entre Posicion cordenada Y de P : ');

     readln(t.yp);

     write('  Entre Posicion cordenada X de K : ');

     readln(g.xp);

     write('  Entre Posicion cordenada Y de K : ');

     readln(g.yp);

  end;

   function distancia_p_k(c, d : posicion) : integer;

   var

     x, y : integer;

     res : real;

   begin

       x := sqr(d.xp - c.xp);

       y := sqr(d.yp - c.yp);

       res := sqrt(x + y);

       distancia_p_k := round(res);

   end;

  begin

      clrscr;

      entrada(p,k);

      writeln('  La Distancia Es De : ',distancia_p_k(p,k));

      writeln;

      writeln('  Pulse Una Tecla ');

      readkey;

  end.