Hỏi về pascal

Đây là game oẳn tù tì mình làm trên pascal nhưng không compile được. Bạn nào biết thì chỉnh sửa cặn kẽ giùm mình. Mình mới làm chương trình "lớn" đầu tiên.

program oantuti;
uses crt;
var N, M: byte;
begin
clrscr;
write('bua: 1');
write('keo: 2');
write('bao: 3');
writeln('nhap 1,2 hoac 3: ');
readln(N);
randomize;
M:=random(3);
readln(M);
if N=M then writeln('hoa') else;
begin
if N=1 and M=2 then writeln('thang') else;
begin
if N=1 and M=3 then writeln('thua') else;
begin
if N=2 and M=1 then writeln('thua') else;
begin
if N=2 and M=3 then writeln('thang') else;
begin
if N=3 and M=1 then writeln('thang') else writeln('thua');
readln;
end.

Click để xem tiếp...

chương trình của bạn bị lỗi........và các hàm trong đó bạn viết không rõ í...vd như:

if N=1 and M=2 then writeln('thang') else;
begin
if N=1 and M=3 then writeln('thua') else;
begin
if N=2 and M=1 then writeln('thua') else;
begin
if N=2 and M=3 then writeln('thang') else;
begin
if N=3 and M=1 then writeln('thang') else writeln('thua');

Đoạn này khó mà cho chương trình hiểu đc bạn muốn cái gì...và bạn cũng khai báo bên trên đó còn thiếu....

VD...bh bạn muốn làm trương trình cho bn ng chơi....thỳ hàm bạn nhập vào phải như vậy chứ nhập 1,2,3 đó chỉ là cái bạn gọi là kết quả...Vd như chương trình của bạn....

bạn nhập 1 thỳ nó hiểu là búa chứ nó k hiểu đó là ai...vì vậy bạn phải thêm trường người chơi vào để chương trình có thể nhận ra đc bạn đang muốn gì.........thế nhé..........

Bạn nhắn tin vào mail này cho mình nhé. Mình sẽ sửa bào giúp bạn

Email mình nè!
1246uy3nh4ck3r2000@gmail.com

nếu m nhớ k nhầm thì sau else k có chấm phẩy nha bạn. với lại bạn không cần nhiều begin thế đâu. 1 câu lệnh thì đâu cần begin. nhiều else thế nhưng nó đều trong 1 câu lệnh cả mà. và nếu có begin thì bạn cũng phải end; cho nó chứ.