Два вектора заданы своими координатами .Вычислить длины этих векторов и сравнить их

function L(a:array of Real):=Sqrt(a.Sum(v->v*v));
begin
  var n:=ReadInteger('размерность:');
  var(a,b):=(ReadArrReal('первый вектор:',n),ReadArrReal('второй вектор:',n));
  var(La,Lb):=(L(a),L(b));
  $'Их длины {La} и {Lb} соответственно.'.Println;
  case sign(Lb-La) of
    -1 : 'Первый длиннее'.Println;
    +1 : 'Второй длиннее'.Println;
  else   'Они одинаковые'.Println;
  end;
end.

const
  n = 10;
 
type
  Vector = array[1..N] of Integer;
 
var
  V1, V2: vector;
  L1, L2: Real;
  i: Longint;
 
procedure sumvect(a: vector; var sum: real);
var
  i: integer;
begin
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + Sqr(a[i]);
  end;
  sum := SQRT(sum);
end;
 
begin
  {...}
  { блок получения/ввода/считывания/генерирования значений векторов  - пишите сами на выбор...}
  {...}
  writeln('Введите вектор А');
  for i := 1 to n do 
    read(V1[i]);
  writeln('Введите вектор B');
  for i := 1 to n do 
    read(V2[i]);
  L1 := 0;
  L2 := 0;
  sumvect(v1, l1);
  sumvect(v2, l2);
  if L1 > L2 then 
    Writeln('Первый больше второго.')
  else 
    Writeln('Второй больше первого');
end.