Найти длины векторов Pascal

[GaJIbI4]

Паскаль знаю плоховато, нужна помощь.
Заданы три вектора A={a1, a2, a3,}, B={b1, b2, b3}, C={c1, c2, c3}.
Вычислить и вывести на печать длины этих векторов, предварительно расставив их в порядке возрастания. Вычисление длины вектора оформить в виде подпрограммы-функции.
Исходные данные:
A={-2.1; 3.4; 2.48; -1}; B={-0.8; 1.25; 3.1; -1.5; 0.25};
C={0.55; -1; 1.1; 2.05}.

вот что накидал:

type vector=array [1..5] of real;
var k: byte;
dl:real;
x: vector;
 
function dlvec(y:vector):real;
var i:byte;
s:real;
begin
for i:=1 to k do
s:= s+sqr(y[i]);
dlvec:= sqrt(s);
end;
 
var
i:integer;
y: vector;
begin
k:=5;
writeln('Введите координаты вектора');
for i:=1 to k do
readln(y[i]);
dl:=dlvec(y);
writeln('Длина вектора Х равна', dl: 8: 2);
end.

[Zer0]

readln(y[i]);
dl:=dlvec(x);

Вы заполняете один вектор, а длину считаете другого (не заполненного)

А пока в целом вроде верно
Сортировка - банальный пузырек можно использовать (но длину лучше тогда тоже хранить как массив)

[GaJIbI4]

Вот доработал, осталось реализовать вывод на экран длины векторов в порядке возрастания, тоесть не просто отсортировать и вывести на экран массив чисел, а например должно быть так: А=1 В=2 С=3. Как можно это реализовать?

type vector=array [1..5] of real;
var k: byte;

x: vector;

function dlvec(y:vector):real;
var i:byte;
s:real;
begin
for i:=1 to k do
s:= s+sqr(y[i]);
dlvec:= sqrt(s);
end;

var
i:integer;
vA, vB, vC: vector;
dlA, dlB, dlC, max:real;
begin

writeln('Введите количество координат вектора А: ');
readln(k);
writeln('Введите координаты вектора A: ');
for i:=1 to k do
readln(vA[i]);

writeln('Введите количество координат вектора B: ');
readln(k);
writeln('Введите координаты вектора B: ');
for i:=1 to k do
readln(vB[i]);

writeln('Введите количество координат вектора C: ');
readln(k);
writeln('Введите координаты вектора C: ');
for i:=1 to k do
readln(vC[i]);


dlA:=dlvec(vA);
dlB:=dlvec(vB);
dlC:=dlvec(vC);

if  dlA >= dlB then
max := dlA
else
max := dlB;
if dlC > max then
max := dlC;

end.

[GaJIbI4]

Помогите пожалуйста, еще актуально.