Заданы векторы a,b,c,d размерностью n Получить новый вектор, элементами которого являются длины заданых векторов,расположенных в порядке убывания.

uses crt;
const nmax=15;
type vec=array[1..nmax] of real;
var n:byte;
procedure Vector(var a:vec;c:char);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to n do
 begin
  a[i]:=-5+11*random;
  write(a[i]:5:1);
 end;
writeln;
end;
function Dlina(a:vec):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+sqr(a[i]);
s:=sqrt(s);
Dlina:=s;
end;
var a,b,c,d,e:vec;
    da,db,dc,dd,x:real;
    i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размерность векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Vector(a,'A');
da:=Dlina(a);
e[1]:=da;
writeln('Длина=',da:0:1);
writeln;
Vector(b,'B');
db:=Dlina(b);
e[2]:=db;
writeln('Длина=',db:0:1);
writeln;
Vector(c,'C');
dc:=Dlina(c);
e[3]:=dc;
writeln('Длина=',dc:0:1);
writeln;
Vector(d,'D');
dd:=Dlina(d);
e[4]:=dd;
writeln('Длина=',dd:0:1);
writeln;
for i:=1 to 3 do
for j:=i+1 to 4 do
if e[i]<e[j] then
 begin
  x:=e[i];
  e[i]:=e[j];
  e[j]:=x;
 end;
writeln('Вектор длин:');
for i:=1 to 4 do
write(e[i]:5:1);
readln
end.