Найти длину вектора

[Virtuoz_]

Помогите решить задачу.

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

[ZX Spectrum-128]

Признак окончания ввода вектора какой?

[ZX Spectrum-128]

Ввод при помощи строк, например:

S:='';
K:=0;
While s<>'stop' do
 Begin
  Readln(s);
  Val(s,r,code);
  If code<>0 then 
   Writeln('error')
  Else
   Begin
     K:=k+1;
     X[k]:=r;
    End;
 End;