Разработка процедур и функций пользователя. организация личных библиотек

unit tochki;
interface
uses crt;
const nmax=15;{максимальное число точек}
type point=record{тип зщапись - точка}
           x,y,z:real;{с полями - координатами}
           end;
     mas=array[1..nmax] of point;{тип массив точек}
function Rasst(t:point):real;{функция определения расстояния}
procedure Vvod(var t:mas; var n:byte);{процедура ввода}
procedure Vyvod(var t:mas;n:byte);{процедура вывода}
implementation
function Rasst(t:point):real;
begin
Rasst:=sqrt(sqr(t.x)+sqr(t.y)+sqr(t.z));
end;
procedure Vvod(var t:mas; var n:byte);
var i:byte;
begin
repeat{проверка правильности ввода количества, больше проверять нечего}
write('Количество точек до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите координаты x,y,z для ',n,' точек:');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  read(t[1].x,t[i].y,t[i].z);
 end;
clrscr;
end;
procedure Vyvod(var t:mas;n:byte);
var i:byte;
begin
writeln('Координаты точек:');
write('X:');
for i:=1 to n do
write(t[i].x:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(t[i].y:5:1);
writeln;
write('Z:');
for i:=1 to n do
write(t[i].z:5:1);
writeln;
writeln;
end;
end.

uses crt,tochki;
var a:mas;
    n,i,imx:byte;
    mx:real;
begin
Vvod(a,n);
Vyvod(a,n);
mx:=Rasst(a[1]);
imx:=1;
writeln('Расстояния точек до начала координат:');
for i:=1 to n do
 begin
  writeln(i:2,Rasst(a[i]):6:2);
  if Rasst(a[i])>mx then
   begin
    mx:=Rasst(a[i]);
    imx:=i;
   end;
 end;
writeln('Максимальное расстояние до точки номер ',imx,'=',mx:0:2);
end.