program o_0;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a [i]:=random(11);
for i:=1 to 10 write (a[i],' ');
end.
В чём ошибка?

Пропущено do после числа 10 в предпоследней строке.

Чтобы избежать подобных ошибок, либо быстро их находить, принято писать программу с опеределенным форматированием, выделяющим ее структуру

program o_0;

var

   i: integer;

   a: array [1..10] of integer;

begin

    for i:=1 to 10 do

         a [i]:=random(11);

    for i:=1 to 10 do

         write (a[i],' ');

end.