Помогите устранить ошибку Pascal
Program Prim;
Const n=10;
type mass=array[1..n]of integer;
Var x:mass;
{Процедура ввода в режиме диалога}
Procedure wwod(var a:mass; Name:char);
Var i:integer;
Begin
for i:=1 to 10 do
Begin
Write(Name,'[',i,']=');
ReadLn(a);
End;
End;
{Процедура поиска максимального элемента}
Procedure MaxMas (a:Mass);
Var i:integer;
Begin
For i:=2 to 10 do
If a>max then (выдает ошибку: неизвестный идентификатор max!!!!)
Begin
Max:=a;
Nom:=i;
End;
{основная программа}
Begin
wwod(x, 'X');
writeln ('Ввод окончен. ');
writeln ('Начало поиска: ');
Max:=x[1];
Nom:=1;
MaxMas (x);
writeln ('Вывод: ');
write('максимальный элемент массива - ');
writeln('элемент №',i, ' , равный ', max);
End.