Найдите ошибки плиз; очень надо
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.