viết chương trình in ra màn hình bảng cửu chương từ 1 đến 9 P/s mai em cần để kiểm tra nên giúp em nha

program bangcuuchuong;
uses crt;
var i,j:byte;
begin
     clrscr;
     writeln(‘BANG CUU CHUONG’);
     i:=1;
     while i<=9 do
          begin
               j:=1;
               writeln(‘Bang cuu chuong 1:’)
               while j<=10 do
                    begin
                         writeln(i,’ x ‘,j,’= ‘,i*j);
                         j:=j+1;
                    end;
               delay(500);
          end;
     readln;
end.

$\text{#Mong câu trả lời hay nhất ạ}$
$\text{#Chúc bạn học tốt nha}$
$\text{@Vân}$