Вопрос касательно программирования

Помогите пожалуйста устранить ошибку в строке VVOD(A,10); выдаёт паскаль "неверное число фактических параметров"

PROGRAM PR1;
TYPE MAS=ARRAY[1..30] of INTEGER;
VAR A,B:MAS;N,POL:INTEGER;
K1,K2,S1,S2:REAL;
PROCEDURE VVOD(VAR x:MAS;VAR N:INTEGER;Q:string);
VAR i:integer;
BEGIN
WRITE('Введите число элементов масива',Q );
READLN(N);
WRITE('Введите элементы массива',Q);
FOR i:=1 to N DO
BEGIN
WRITE(Q,'[',i,']=');READLN(x);
END;
END;
PROCEDURE POISK(X:MAS;N:INTEGER;VAR POL,k:integer);
VAR i:integer;
BEGIN
FOR i:=N to 1 DO
IF(x>0)THEN
BEGIN
POL:=x;
k:=i;
END;
END;
PROCEDURE VIVOD(x:MAS;N:INTEGER;Q:string);
VAR i:integer;
Begin
FOR i:=1 to N DO
WRITELN (Q ,'[',i,']=',x);
READLN(x);
END;
BEGIN
VVOD(A,10);
VVOD(B,15);
POISK(A,10,S1,K1);
POISK(B,15,S2,K2);
A[k1]:=S2;
B[k2]:=S1;
VIVOD(A,10);
VIVOD(B,15);
END.