Встречено ':', а ожидалось ';'
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random (21)-10;
begin
if (a[i]>0) then
write (a[i]=a[i]:2)
end;
end.
Что делать?

Я полагаю из-за :2 в строчке write (a[i]=a[i]:2)

Наверное программа быа постороена неправильно, но могут быть и другие нюансы.

Предлагаю Вам пользоваться программой Lazarus для программирования на pascal.