Пропущено 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.
