mnozenie petla

PROGRAM petla;
uses crt;
var
a,b,i,x,x1,g: integer;
begin
g:=10;
for i:=1 to 10 do
begin
randomize;
a:=random(11);
b:=random(11);
write(a,'*',b,'=');
x:=a*b;
readln(x1);
if x<>x1 then
begin
writeln('zly wynik');
g:=g-1;
end
else
writeln('dobry wynik');
end;
if g=10 then
writeln('doskonale',g, 'dobrych odpowiedzi')
else       ;
 begin
 if g=9 then
 writeln('niezle ',g,'dobrych odpowiedzi')
 else
 begin;
 writeln('pocwicz jeszcze ',g,'dobrych odpowiedzi') ;
 end;
 readln()
 end;
end.
{tak sie programuje}