Тема #81952

Где здесь ошибка:
var a,b,c,n:integer;
begin
for n:=1 to 10 do
begin
randomize;
a:=random;
b:=random;
write(a,'+',b,'='); readln(c);
if c:=a+b then writeln('1b');
else
writeln('0b');
end;
readln;
end.
Никак откомпилировать не могу.