Подпрограмма: определить расстояние в единицах между двумя элементами матрицы

  type
    point_3d=record
       x, y, z: real;
    end;

 function getD(p1, p2: point_3d):real;
 begin
     Result := sqrt(sqr(p2.x - p1.x) +sqr(p2.y - p1.y)+sqr(p2.z - p1.z));
 end;

uses crt;type mat=array[1..50,1..50]of word;
var a:mat;b,c,x1,x2,y1,y2:byte;
function kol(a:mat;b,x1,x2,y1,y2:byte):word;
begin kol:=abs((abs(x1-x2)+1)*b-(abs(b-y1)-1)-(abs(b-y2))-1);end;
begin clrscr;writeln('N*M');read(b,c);writeln('x1,y1');
readln(x1,y1);writeln('x2,y2');readln(x2,y2);
writeln(kol(a,b,x1,x2,y1,y2));readkey;end.

program m;
uses crt;
 
type
    point_3d=record
       x, y, z: real;
    end;
    
var
  p1, p2: point_3d;
  int D;
 
function getD(p1, p2: point_3d):int;
 begin
     Result :=integer( sqrt(sqr(p2.x - p1.x) +sqr(p2.y - p1.y)+sqr(p2.z - p1.z)) );
 end;
 
 
begin
 
   // здесь может быть твой код
 
   //заполняєм точки в матрице
  
   p1.x := 1;
   p1.y := 2;
   p1.z := 3;
   
   p2.x := 5;
   p2.y := 3;
   p2.z := 4;
   
   D := getD(p1, p2);
   writeln('D = ', D);
   
   
   readln;
end.

program EvgeniiSp;
uses Crt;
type
 point_3d = record
             x, y, z: real;
            end;
var
 a,b: point_3d;
 
 function getD(p1, p2: point_3d): real;
  begin
   Result:= sqrt(sqr(p2.x - p1.x)+sqr(p2.y - p1.y)+sqr(p2.z - p1.z));
  end;
 
begin
 ClrScr;
 writeln('Ââåäèòå íà÷àëüíûå çíà÷åíèÿ òî÷êè:');
 with a do
  begin
   write('x = ');
   readln(x);
   write('y = ');
   readln(y);
   write('z = ');
   readln(z);
  end;
 writeln('Ââåäèòå êîíå÷íûå çíà÷åíèÿ òî÷êè:');
 with b do
  begin
   write('x = ');
   readln(x);
   write('y = ');
   readln(y);
   write('z = ');
   readln(z);
  end;
 writeln('Îòâåò: ',getD(a,b):6:2);
end.