Pascal.Задача про отрезки.

[Avatonk]

Нашёл ответ на свою задачку в интернете, но там сделано через функцию,как сделать через процедуру?
Задача:
На плоскости заданы своими координатами n точек. Создать массив размером n(n -1), элементами которого являются расстояния от каждой точки до n -1 других.
Вот код:

uses crt;
const nmax=20;
type Tpoint=record
x,y:integer;
end;
function Dlina(p,q:Tpoint):real;
begin
Dlina:=sqrt(sqr(p.x-q.x)+sqr(p.y-q.y));
end;
var a:array[1..nmax]of TPoint;
b:array[1..nmax,1..nmax]of real;
n,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Vvedite kolichestvo tochek n=');
readln(n);
until (n>1)and(n<=nmax);
for i:=1 to n do
for j:=1 to n do
begin
a[i].x:=random(50)-25;
a[i].y:=random(50)-25;
end;
write('X '); {}
for i:=1 to n do
write(a[i].x:4);
writeln;
write('Y ');
for i:=1 to n do
write(a[i].y:4);
writeln;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if j<>i then
begin
inc(k);
b[i,k]:=Dlina(a[i],a[j]);
end;
end;
Writeln('Rezultat:');
for i:=1 to n do
begin
for j:=1 to k do
write(b[i,j]:6:2);
writeln;
end;
readln
end.

[Camaro Chevelle]

передавать в неё var-параметр

[Avatonk]

всмысле?перенести в неё весь раздел var(всё из него)?

[Camaro Chevelle]

procedure dlina(p, q: tpoint; var res: real);
  begin
    res:=sqrt(sqr(p.x-q.x)+sqr(p.y-q.y));
  end;

и в проге надо поменять строчку

b[i,k]:=Dlina(a[i],a[j]);

на

Dlina(a[i], a[j], b[i, k]);

[Avatonk]

Отлично!Спасибо!