Tìm hiểu chương trình và so sánh với quy định cú pháp thì trong chương trình

Chuong Trinh 
uses crt;
var
x:integer;
begin
clrscr;
x:=1;
while(x<>0)do
begin
write(‘hay go mot so Nguyen:’);readln(x);
if(x mod 2=0)then writeln(‘do la so Chan ‘)
else writeln(‘do la so le ‘);
end;
End.