Turbo Pascal, не компилируется фрагмент кода с вызовом процедур, где ошибка?

Нагородили.. .

case v of
1: v1(mas1,mas2,k,m,n);
2: v2(mas1,mas2,k,m,n);
3: v3(mas1,mas2,k,m,n);
end;

Можно сделать еще короче и красивее с использованием процедурного типа, но нужно будет слишком много объяснений. Впрочем, напишу:
{$F+}
procedure v1(mas1,mas2: array of integer; k,m,n: integer); begin ...end;
procedure v2(mas1,mas2: array of integer; k,m,n: integer); begin ...end;
procedure v3(mas1,mas2: array of integer; k,m,n: integer); begin ...end;
{$F-}
type proc=procedure(mas1,mas2: array of integer; k,m,n: integer);
const pro:array[1..3]of proc=(v1,v2,v3);
...
begin
...
pro[v](m1,m2,k1,k2,k3);
...
end.

вообще то переменные описываются перед вызовом процедур

procedure variant(v: integer);
var
mas1,mas2: array [0..1] of integer;
k,m,n: integer
begin
case v=1 of true: v1(mas1,mas2, k,m,n); end;
case v=2 of true: v2(mas1,mas2, k,m,n); end;
case v=3 of true: v3(mas1,mas2, k,m,n); end;
end;

и, если мне не изменяет память, надо каждую переменную в процедуре описывать отдельно
procedure v(mas1: array[0..1] of integer; mas2[0..1]: array of integer; k: integer; m: integer;n: integer);
begin
...
end;

а проще объяви массивы до начала программы и используй их как public

так же можно создать класс, где есть все эти переменные и вызывать процедуры только с одной переменной (нашего класса)

type
arr = array [1..10] of integer;
....

case v of
1: v1(mas1,mas2:arr; k,m,n:integer);
2: v2(mas1,mas2:arr; k,m,n:integer);
3: v3(mas1,mas2:arr; k,m,n:integer);
end;

массивы нельзя передавть в качестве параметров процедур