Задача в Турбо Паскале

[Castro]

Вычислить длину n-вимерного вектора за извесными его компонентами L=под корен(х1 в квадрате+ х2 в квадрате+...+xn в квадрате)

PS решал решал и не смог сделать , помогите чем сможете

[capta1n]

program vector;
var
  k,i : byte;
  x,sum : real;
begin

  write ('Vvedite mernost'' prostranstva: ');
  readln (k);
  
  sum:=0;
  for i:=1 to k do
  begin
    write (i,' koordinata: ');
    readln (x);
    sum:=sum+sqr(x)
  end;

  writeln ('Dlina vectora= ',sqrt(sum):0:2);
  readln
end.