Помогите, не понимаю

[email protected] в категроии Информатика, вопрос открыт 14.12.2017 в 18:37

Найдите ошибки пожалуйста
Program mass;
Uses crt;
Var b:array [1..10] of integer;
i: real;
Begin
Clrscr;
Randomize;
For i:=1 to 10 do
Begin
B:=1+random (10);
Write (‘b[‘:3, i,’]=‘, b[i]);
End;
Readkey;
End.