Ошибка: ожидался идентификатор! (Паскаль)

Procedure Formirovanie massiva(ошибка) ;
Var
A: array [1..20] of integer;
I : byte ;
Begin
For i :=1 to 20 do
A [ i ]:= random (10);
end;

Помогите пожалуйста разобраться в чём ошибка?