Mọi người giúp em với ạ, sao nó cứ báo lỗi hoài
program ag;
var a,c:string;
b:byte;
begin
write('Nhap lua chon cua ban(Keo,Bua,Bao)=');readln(a);
randomize;
b:=random(3);
if b=0 then c:='Keo' else
if b=1 then c:='Bua' else c:='Bao';
writeln('----------');
writeln('Ban da lua chon=',a);
writeln('May da lua chon=',c);
writeln('----------');
if a=c then writeln('Hoa')
else
if a='Keo' then
if c='Bua' then writeln('Thua') else ('Thang');
if a='Bua' then
if c='Bao' then writeln('Thua') else ('Thang');
if a='Bao' then
if c='Keo' then writeln('Thua') else ('Thang');
readln
end.