Подпрограмма

[Настасьяя]

Выдает ошибку "Нет перегруженной подпрограммы с такими типами параметров
", не знаю, что делать, может кто знает

PROGRAM PR2; 
TYPE 
MASSIV=ARRAY[1..30] OF STRING; 
VAR C,B,X,Y: MASSIV; 
A:ARRAY[1..4] OF INTEGER ; 
PROCEDURE VVOD(N: INTEGER; VAR D: MASSIV; Q: STRING); 
BEGIN 
WRITELN('массив-',Q); 
VAR i: INTEGER; 
FOR i:=1 TO N DO 
BEGIN 
WRITE(Q,'[',i,']='); 
READLN(D[I]); 
END; 
END; 
PROCEDURE POISK(N: INTEGER; D: MASSIV; VAR K: INTEGER); 
VAR i: INTEGER; 
BEGIN 
K:=0; 
FOR i:=N TO 1 DO 
IF(D[i]=0)THEN 
K:=k+1; 
END; 
BEGIN 
VVOD(6,C,'C'); 
VVOD(7,B,'B'); 
VVOD(8,X,'X'); 
VVOD(9,Y,'Y'); 
POISK(6,C,A[1]); 
POISK(7,B,A[2]); 
POISK(8,X,A[3]); 
POISK(9,Y,[4]); 
max:=A[1]; 
t:=1; 
FOR i:=2 TO 4 DO 
IF(A[i]>max)THEN 
BEGIN 
max:=Ai; 
t:=i; 
END; 
WRITELN('max=',max,'t=',t); 
END.

Пожалуйста, оформляйте Ваш код согласно правилам.

В этой строке POISK(9,Y,[4]); выдает ошибку "Неправильный тип параметров подпрограммы"

[eoln]

Наверное, не хватает чего-то, какой-то буквы А скорее всего )

POISK(6,C,A[1]); 
POISK(7,B,A[2]); 
POISK(8,X,A[3]); 
POISK(9,Y,[4]);

[Настасьяя]

Ой, да, какая-то я невнимательная, спасибо)))

А вот что делать с 32 строкой max:=A[1], ошибка"ожидалась переменная"?

[Serge_Bliznykov]

может быть, надо было объявить (описать) в разделе VAR переменную max ?