Помогите найти ошибку:


program zad6;
var a:array [1..10] of integer;
i,n,b:integer;
begin
read(n);
if (n<=10) then
begin
for i:=1 to n do
b:=random(n)+0;
Writeln(a[b]);
end;

end.