Const
  nm = 50;{максимальная размерность вектора}

var
  i, n: integer;
  x: array[1..nm] of real;
  s: real;

begin
  Write('Введите размерность вектора n -> ');
  Readln(n);
  Write('Вводите координаты вектора через пробел ');
  s := 0;
  for i := 1 to n do
  begin
    Read(x[i]);
    s := s + sqr(x[i])
  end;
  Writeln('Длина вектора равна ', sqrt(s):0:4)
end.

Тестовое решение:

Введите размерность вектора n -> 7
Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47
Длина вектора равна 13.2188