Вектор с максимальной длиной

[dark_sergey]

Помогите с задачей.

Даны 3 вектора v1,v2,v3(вектора как одномерный массив). Вводить вектора с клавиатуры, найти длину каждого вектора и вывести вектор с максимальной длиной на экран. Ввод и нахождение длины вектора сделать через процедуру.

[rubius2008]

длина

const n=5;
type mas=array [1..n] of real;
...
procedure lengthM(a:mas;var l:real);
var i:integer;
begin
  l:=0;
  for i:=1 to n do l:=l+sqr(a[i]);
  l:=sqrt(l);
end;